Changeset 488 for trunk/gsdl/perllib/util.pm

Timestamp:

1999-08-31T20:54:45+12:00 (25 years ago)

Author:

rjmcnab

Message:

Changed the directory separator on windows to \ to make the code more
robust.

File:

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

trunk/gsdl/perllib/util.pm

@@ -341 +341 @@
 
     # remove duplicate slashes and remove the last slash
-    $filename =~ s/[\\\/]+/\//g;
-    $filename =~ s/\/$//;
+    if ($ENV{'GSDLOS'} =~ /^windows$/i) {
+    $filename =~ s/[\\\/]+/\\/g;
+    } else {
+    $filename =~ s/[\\\/]+/\//g;
+    }
+    $filename =~ s/[\\\/]$//;
 
     return $filename;