Revert the changes to fixwin32mak.pl - not tested, and didn't

intend to commit this

git-svn-id: https://svn.apache.org/repos/asf/apr/apr/trunk@495117 13f79535-47bb-0310-9956-ffa450edef68

1 files changed, 5 insertions, 10 deletions

diff --git a/build/fixwin32mak.pl b/build/fixwin32mak.pl
index 3012984df..9ee8918e9 100644
--- a/build/fixwin32mak.pl
+++ b/build/fixwin32mak.pl
@@ -14,9 +14,7 @@ $root = cwd;
 # ignore our own direcory (allowing us to move into any parallel tree)
 $root =~ s|^.:(.*)?$|cd "$1|;
 $root =~ s|/|\\\\|g;
-$altroot = $root;
-$altroot =~ s| ".:| "|;
-print "Stripping " . $root . " and " . $altroot . "\n";
+print "Testing " . $root . "\n";
 find(\&fixcwd, '.');
 
 sub fixcwd { 
@@ -25,29 +23,26 @@ sub fixcwd {
 	$thisroot =~ s|^./(.*)$|$1|;
 	$thisroot =~ s|/|\\\\|g;
         $thisroot = $root . "\\\\" . $thisroot;
-        $thisaltroot = $altroot . "\\\\" . $thisroot;
         $oname = $_;
 	$tname = '.#' . $_;
 	$verchg = 0;
+#print "Processing " . $thisroot . " of " . $_ . "\n";
 	$srcfl = new IO::File $_, "r" || die;
 	$dstfl = new IO::File $tname, "w" || die;
 	while ($src = <$srcfl>) {
 	    if ($src =~ m|^\s*($root[^\"]*)\".*$|) {
+#print "Found " . $1 . "\"\n";
 		$orig = $thisroot;
-            } elsif ($src =~ m|^\s*($altroot[^\"]*)\".*$|) {
-		$orig = $thisaltroot;
-            }
-            if (defined($orig)) {
                 $repl = "cd \".";
                 while (!($src =~ s|$orig|$repl|)) {
+#print "Tried replacing " . $orig . " with " . $repl . "\n";
 		   if (!($orig =~ s|^(.*)\\\\[^\\]+$|$1|)) {
                        break;
                    }
 		   $repl .= "\\..";
 		}
-print "Replaced " . $orig . " with " . $repl . "\n";
+#print "Replaced " . $orig . " with " . $repl . "\n";
 		$verchg = -1;
-                undef $orig;
 	    }
             print $dstfl $src; 
 	}