diff options
| author | William A. Rowe Jr <wrowe@apache.org> | 2001-02-25 23:13:40 +0100 |
|---|---|---|
| committer | William A. Rowe Jr <wrowe@apache.org> | 2001-02-25 23:13:40 +0100 |
| commit | b4bd039f19e3841fce50d12faf5da247f88bc148 (patch) | |
| tree | 83556c9996e3c2abcaf896285891f5ff6b546de6 | |
| parent | Ok ... .mak files are nasty. Here's a bit to clean up -some- of that (diff) | |
| download | apache2-b4bd039f19e3841fce50d12faf5da247f88bc148.tar.xz apache2-b4bd039f19e3841fce50d12faf5da247f88bc148.zip | |
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
| -rw-r--r-- | build/fixwin32mak.pl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/build/fixwin32mak.pl b/build/fixwin32mak.pl index d447697d1d..756f0a735c 100644 --- a/build/fixwin32mak.pl +++ b/build/fixwin32mak.pl @@ -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; |