Modified UnixPath for ActiveState perl.

This commit is contained in:
Janet B. Anderson committed 2006-10-02 14:17:41 +00:00
1 parent 2d96451345
commit 3c9b4d761e
1 file changed
+3 -1
+3 -1
View File
@@ -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;
}