randyk 2004/03/10 22:12:09
Modified: perl-framework/Apache-Test/lib/Apache TestRun.pm Log: Reviewed by: stas Win32 can't do in-place file edits without a backup. Revision Changes Path 1.160 +2 -1 httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm Index: TestRun.pm =================================================================== RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm,v retrieving revision 1.159 retrieving revision 1.160 diff -u -r1.159 -r1.160 --- TestRun.pm 10 Mar 2004 07:09:24 -0000 1.159 +++ TestRun.pm 11 Mar 2004 06:12:09 -0000 1.160 @@ -761,11 +761,12 @@ { # in place editing local @ARGV = $config_file; - local $^I = ""; + local $^I = ".bak"; # Win32 needs a backup while (<>) { s{$cfg_top_dir}{$cur_top_dir}g; print; } + unlink $config_file . $^I; } my $cleanup_cmd = "$^X $0 -clean";