stas 2004/08/20 17:42:00
Modified: t/filter/TestFilter in_bbs_inject_header.pm
Log:
todo: the bucket must be set-aside before
it can be stashed away (missing $b->setaside wrapper)
Revision Changes Path
1.11 +2 -0 modperl-2.0/t/filter/TestFilter/in_bbs_inject_header.pm
Index: in_bbs_inject_header.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/filter/TestFilter/in_bbs_inject_header.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -u -r1.10 -r1.11
--- in_bbs_inject_header.pm 15 Aug 2004 06:30:50 -0000 1.10
+++ in_bbs_inject_header.pm 21 Aug 2004 00:42:00 -0000 1.11
@@ -205,6 +205,8 @@
# the separator header will be sent as a last header
# so we send one newly added header and push the separator
# to the end of the queue
+ # XXX: this is broken: the bucket must be set-aside before
+ # it can be stashed away (missing $b->setaside wrapper)
push @{ $ctx->{buckets} }, $b;
debug "queued header [$data]";
inject_header_bucket($bb, $ctx);
