> > > I see, try this patch (untested):
> >
> > I didn't realize that END {} is a block already :) here is a simpler patch
> > (still untested):
> >
> > 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.41
> > diff -u -r1.41 TestRun.pm
> > --- Apache-Test/lib/Apache/TestRun.pm 2001/08/27 05:55:17 1.41
> > +++ Apache-Test/lib/Apache/TestRun.pm 2001/08/29 15:49:48
> > @@ -221,6 +221,7 @@
> > #always run, a subclass might not want that
> >
> > eval "END {
> > + local $?; # preserve the exit status
> > eval {
> > Apache::TestRun->new(test_config =>
> > Apache::TestConfig->thaw)->scan;
>
> Stas, thanks, that worked a treat. May I request that you commit it?
committed.
_____________________________________________________________________
Stas Bekman JAm_pH -- Just Another mod_perl Hacker
http://stason.org/ mod_perl Guide http://perl.apache.org/guide
mailto:[EMAIL PROTECTED] http://localhost/ http://eXtropia.com/
http://singlesheaven.com http://perl.apache.org http://perlmonth.com/
