cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestRun.pm

[randyk]

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";