Changeset 740 for trunk/gsdl/perllib/mgbuildproc.pm

Timestamp:

1999-10-24T20:25:33+13:00 (25 years ago)

Author:

sjboddie

Message:

windows specific bug

File:

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

trunk/gsdl/perllib/mgbuildproc.pm

@@ -228 +228 @@
         my ($archivedir) = $filename =~ /^(.*?)(?:\/|\\)[^\/\\]*$/;
         $archivedir = "" unless defined $archivedir;
-        $archivedir =~ s/^(\/|\\)*//;
-        $archivedir =~ s/(\/|\\)*$//;
+        $archivedir =~ s/\\/\//g;
+        $archivedir =~ s/^\/+//;
+        $archivedir =~ s/\/+$//;
         print $handle "<archivedir>$archivedir\n";
     }