geoff 2004/05/05 18:19:17
Modified: perl-framework/Apache-Test/lib/Apache TestRun.pm
Log:
fix comment gibberish
Revision Changes Path
1.168 +3 -3
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.167
retrieving revision 1.168
diff -u -r1.167 -r1.168
--- TestRun.pm 6 May 2004 01:10:22 -0000 1.167
+++ TestRun.pm 6 May 2004 01:19:17 -0000 1.168
@@ -348,9 +348,9 @@
$SIG{__DIE__} = sub {
return unless $_[0] =~ /^Failed/i; #dont catch Test::ok failures
- # _show_results() calls uses calls die() under a few conditions,
- # such as when no tests are run or when tests fail. make sure
- # the message is propagated back to the user.
+ # _show_results() calls die() under a few conditions, such as
+ # when no tests are run or when tests fail. make sure the message
+ # is propagated back to the user.
print $_[0] if (caller(1))[3]||'' eq 'Test::Harness::_show_results';
$server->stop(1) if $opts->{'start-httpd'};
