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