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 Schaefer
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
