Changeset 16794

Show
Ignore:
Timestamp:
14.08.2008 16:46:54 (11 years ago)
Author:
davidb
Message:

Tweak to filename_cat that had an explicit '/' in it. Didn't seem to be doing any harm, but changing to using everything as separate arguments is cleaner.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/download.pm

    r12465 r16794  
    3030no strict 'subs'; 
    3131 
    32 require util; 
     32##require util; 
     33use util; 
    3334use gsprintf 'gsprintf'; 
    3435 
     
    4344    if ($ENV{'GSDLCOLLECTDIR'}){ 
    4445    
    45     $coldownloadname = &util::filename_cat($ENV{'GSDLCOLLECTDIR'},  
    46                           "perllib/downloaders",  
     46    $coldownloadname = &util::filename_cat($ENV{'GSDLCOLLECTDIR'},  
     47                          "perllib","downloaders",  
    4748                          "${download_name}.pm"); 
    4849 
    49    } 
     50    } 
    5051    
    5152    my $maindownloadname = &util::filename_cat($ENV{'GSDLHOME'}, 
    52                            "perllib/downloaders",  
     53                           "perllib","downloaders",  
    5354                           "${download_name}.pm"); 
    5455