Duplicates (and is stale to) the copy in srclib/apr/build

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

diff --git a/build/fixwin32mak.pl b/build/fixwin32mak.pl
deleted file mode 100644 (file)
index 756f0a7..0000000
--- a/build/fixwin32mak.pl
+++ /dev/null
@@ -1,47 +0,0 @@
-#
-# fixwin32mak.pl ::: Apache/Win32 maintanace program
-#
-# This program, launched from the build/ directory, replaces all nasty absoulute paths
-# in the win32 .mak files with the appropriate relative root.
-#
-# Run this program prior to committing or packaging any newly exported make files.
-
-use Cwd;
-use IO::File;
-use File::Find;
-
-chdir '..';
-$root = cwd;
-$root =~ s|.:(.*)|cd "$1|;
-$root =~ s|/|\\\\|g;
-find(\&fixcwd, '.');
-
-sub fixcwd { 
-    if (m|.mak$|) {
-       $repl = $File::Find::dir;
-        $repl =~ s|^./||;
-        $repl =~ s|[^\./]+|..|g;
-        $repl =~ s|/|\\|;
-        $oname = $_;
-       $tname = '.#' . $_;
-       $verchg = 0;
-       $srcfl = new IO::File $_, "r" || die;
-       $dstfl = new IO::File $tname, "w" || die;
-       while ($src = <$srcfl>) {
-           if ($src =~ s|^(\s*)$root|$1cd "$repl|) {
-               $verchg = -1;
-           }
-            print $dstfl $src; 
-       }
-       undef $srcfl;
-       undef $dstfl;
-       if ($verchg) {
-           unlink $oname || die;
-           rename $tname, $oname || die;
-           print "Corrected absolute paths within " . $oname . " in " . $File::Find::dir . "\n"; 
-       }
-       else {
-           unlink $tname;
-       }
-    }
-}