Commit c97f0b72 authored by William A. Rowe Jr's avatar William A. Rowe Jr
Browse files 

  The only thing about perl that drives me crazy, how many times to
  reescape an escaped char ;-/


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

build/fixwin32mak.pl

+1 −2
Original line number Diff line number Diff line
@@ -14,7 +14,6 @@ chdir '..'; 
$root = cwd;

$root =~ s|.:(.*)|cd "$1|;

$root =~ s|/|\\\\|g;

print $root . "\n";

find(\&fixcwd, '.');



sub fixcwd {
@@ -22,7 +21,7 @@ sub fixcwd { 
	$repl = $File::Find::dir;

        $repl =~ s|^./||;

        $repl =~ s|[^\./]+|..|g;

        $repl =~ s|/|\\\\|;

        $repl =~ s|/|\\|;

        $oname = $_;

	$tname = '.#' . $_;

	$verchg = 0;