From 3c9b4d761ef8fecc5c6823c62e6e620c995f8399 Mon Sep 17 00:00:00 2001
From: "Janet B. Anderson" <jba@aps.anl.gov>
Date: Mon, 2 Oct 2006 14:17:41 +0000
Subject: [PATCH] Modified UnixPath for ActiveState perl.

---
 configure/tools/convertRelease.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/configure/tools/convertRelease.pl b/configure/tools/convertRelease.pl
index 612b61c5a..c7585409e 100755
--- a/configure/tools/convertRelease.pl
+++ b/configure/tools/convertRelease.pl
@@ -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;
 }