Changeset 16794 for gsdl/trunk/perllib/download.pm

Timestamp:

2008-08-14T16:46:54+12:00 (16 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:

• gsdl/trunk/perllib/download.pm (modified) (2 diffs)

gsdl/trunk/perllib/download.pm

@@ -30 +30 @@
 no strict 'subs';
 
-require util;
+##require util;
+use util;
 use gsprintf 'gsprintf';
 
@@ -43 +44 @@
     if ($ENV{'GSDLCOLLECTDIR'}){
    
-    $coldownloadname = &util::filename_cat($ENV{'GSDLCOLLECTDIR'}, 
-                          "perllib/downloaders", 
+    $coldownloadname = &util::filename_cat($ENV{'GSDLCOLLECTDIR'}, 
+                          "perllib","downloaders", 
                           "${download_name}.pm");
 
-   }
+    }
    
     my $maindownloadname = &util::filename_cat($ENV{'GSDLHOME'},
-                           "perllib/downloaders", 
+                           "perllib","downloaders", 
                            "${download_name}.pm");