Changeset 18326 for gsdl

Timestamp:

2009-01-07T16:55:52+13:00 (15 years ago)

Author:

ak19

Message:

Minor change for Windows. Now finished Windows testing of the recently added option of switching between renaming files using base64 and URL encodings.

File:

• gsdl/trunk/perllib/util.pm (modified) (1 diff)

gsdl/trunk/perllib/util.pm

@@ -1016 +1016 @@
     $tailname =~ s/\s*//sg;      # for some reason it adds spaces not just at end but also in middle
     }
-        
+
     $filename = "$tailname$suffix";
-    $filename = "$dirname$filename" if ($dirname ne "./");
+    $filename = "$dirname$filename" if ($dirname ne "./" && $dirname ne ".\\");
 
     return $filename;