Joe Schaefer <[EMAIL PROTECTED]> writes:
Stas Bekman <[EMAIL PROTECTED]> writes:
The error comes from return $filter->next->pass_brigade($bb2);
in sub handler in TestFilter::out_bbs_filebucket;
So it's some Apache filter that throws an error,
It's wierder than that- the return value is tainted somehow:
The tainted return value is correlated to the taintedness of the argument to APR::Bucket->new:
Index: t/protocol/TestProtocol/echo_bbs2.pm =================================================================== RCS file: /home/cvspublic/modperl-2.0/t/protocol/TestProtocol/echo_bbs2.pm,v retrieving revision 1.6 diff -u -r1.6 echo_bbs2.pm --- t/protocol/TestProtocol/echo_bbs2.pm 14 Jul 2004 08:42:07 -0000 1.6 +++ t/protocol/TestProtocol/echo_bbs2.pm 24 Sep 2004 00:10:20 -0000 @@ -43,7 +43,7 @@ last if $data =~ /^[\r\n]+$/;
# transform data here - my $bucket = APR::Bucket->new(uc $data); + my $bucket = APR::Bucket->new((uc $data) =~/(.*)/s); $bb_out->insert_tail($bucket);
$c->output_filters->fflush($bb_out);
~>All tests successful. Files=2, Tests=13, 2 wallclock secs ( 1.00 cusr + 0.32 csys = 1.32 CPU)
joe++!
trying to understand what the problem is and how to write a test for it and how to fix it. will keep you posted.
-- __________________________________________________________________ Stas Bekman JAm_pH ------> Just Another mod_perl Hacker http://stason.org/ mod_perl Guide ---> http://perl.apache.org mailto:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com http://modperlbook.org http://apache.org http://ticketmaster.com
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
