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

[stas]

stas        2004/08/28 08:05:32

  Modified:    perl-framework/Apache-Test/lib/Apache TestRun.pm
  Log:
  use 'or die' to avoid warnings due to possible overrides of die
  (better than calling CORE::die)
  
  Revision  Changes    Path
  1.181     +4 -6      
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.180
  retrieving revision 1.181
  diff -u -u -r1.180 -r1.181
  --- TestRun.pm        26 Aug 2004 01:17:58 -0000      1.180
  +++ TestRun.pm        28 Aug 2004 15:05:32 -0000      1.181
  @@ -639,9 +639,8 @@
   
       $orig_command = "ulimit -c unlimited; $orig_command";
       warning "setting ulimit to allow core files\n$orig_command";
  -    exec $orig_command;
  -    # use CORE::die to avoid warnings due to possible overrides of die
  -    CORE::die "exec $orig_command has failed"; # shouldn't be reached
  +    # use 'or die' to avoid warnings due to possible overrides of die
  +    exec $orig_command or die "exec $orig_command has failed";
   }
   
   sub set_ulimit {
  @@ -744,9 +743,8 @@
       $orig_cwd ||= Cwd::cwd();
       chdir $orig_cwd;
       warning "rerunning '$orig_command' with new config opts";
  -    exec $orig_command;
  -    # use CORE::die to avoid warnings due to possible overrides of die
  -    CORE::die "exec $orig_command has failed"; # shouldn't be reached
  +    # use 'or die' to avoid warnings due to possible overrides of die
  +    exec $orig_command or die "exec $orig_command has failed";
   }