dougm 01/06/23 10:47:32 Modified: t/filter/TestFilter api.pm Log: TestFilter::api needs to untie *STDOUT; else tests run after it fail Revision Changes Path 1.4 +6 -0 modperl-2.0/t/filter/TestFilter/api.pm Index: api.pm =================================================================== RCS file: /home/cvs/modperl-2.0/t/filter/TestFilter/api.pm,v retrieving revision 1.3 retrieving revision 1.4 diff -u -r1.3 -r1.4 --- api.pm 2001/04/20 01:57:26 1.3 +++ api.pm 2001/06/23 17:47:31 1.4 @@ -20,6 +20,10 @@ $Test::ntest = 1; } +#XXX: else pp_untie complains: +#untie attempted while %d inner references still exist +sub Apache::Filter::UNTIE {} + sub handler { my $filter = shift; @@ -44,6 +48,8 @@ ok $r->isa('Apache::RequestRec'); ok $r->uri eq '/' . __PACKAGE__; + + untie *STDOUT; 0; }