Modified UnixPath for ActiveState perl.

2006-10-02 14:17:41 +00:00
parent 2d96451345
commit 3c9b4d761e
1 changed files with 3 additions and 1 deletions
@@ -319,11 +319,13 @@ sub checkRelease {
 sub UnixPath {
    my ($newpath) = @_;
    if ($^O eq "cygwin") {
-	$newpath =~ s|\\|/|go;
 	$newpath =~ s%^([a-zA-Z]):/%/cygdrive/$1/%;
+    } elsif ($^O eq 'MSWin32') {
+	$newpath =~ s|\\|/|go;
    } elsif ($^O eq 'sunos') {
 	$newpath =~ s(^\/tmp_mnt/)(/);
    }
+    $newpath =~ s|\\|/|go;
    return $newpath;
 }