Changeset 16794
- Timestamp:
- 2008-08-14T16:46:54+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/download.pm
r12465 r16794 30 30 no strict 'subs'; 31 31 32 require util; 32 ##require util; 33 use util; 33 34 use gsprintf 'gsprintf'; 34 35 … … 43 44 if ($ENV{'GSDLCOLLECTDIR'}){ 44 45 45 46 "perllib /downloaders",46 $coldownloadname = &util::filename_cat($ENV{'GSDLCOLLECTDIR'}, 47 "perllib","downloaders", 47 48 "${download_name}.pm"); 48 49 49 }50 } 50 51 51 52 my $maindownloadname = &util::filename_cat($ENV{'GSDLHOME'}, 52 "perllib /downloaders",53 "perllib","downloaders", 53 54 "${download_name}.pm"); 54 55
Note:
See TracChangeset
for help on using the changeset viewer.