Changeset 16794


Ignore:
Timestamp:
2008-08-14T16:46:54+12:00 (13 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.

File:
1 edited

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
Note: See TracChangeset for help on using the changeset viewer.