> For example this
> does the trick:
>
> Index: Apache-Test/lib/Apache/TestRun.pm
> ===================================================================
> RCS file:
> /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm,v
> retrieving revision 1.166
> diff -u -r1.166 TestRun.pm
> --- Apache-Test/lib/Apache/TestRun.pm 16 Apr 2004 20:29:23 -0000
> 1.166
> +++ Apache-Test/lib/Apache/TestRun.pm 5 May 2004 23:15:14 -0000
> @@ -347,6 +347,7 @@
>
> $SIG{__DIE__} = sub {
> return unless $_[0] =~ /^Failed/i; #dont catch Test::ok failures
> + print $_[0] if (caller(1))[3]||'' eq
> 'Test::Harness::_show_results';
> $server->stop(1) if $opts->{'start-httpd'};
> $server->failed_msg("error running tests");
> exit_perl 0;
either version is fine with me. this one is probably safer, though, as it
means we probably won't break stuff we don't know about.
feel free to commit whichever version you prefer. it will be nice to have
this minor nit finally fixed :)
--Geoff
