On Thu, Jul 24, 2008 at 10:26:00PM -0500, Dave Rolsky wrote:
> I'm sort of sick of dealing with the vast number of bugs between buffers,
Sorry to hear that.
Would it help if I told you that revision 3748 is to blame? (Thank you
git-bisect!) Removing that big if() in flush_buffer() is enough to fix
it -- though it obviously breaks the "flush_filter" test it was meant to
fix in the first place.
> If someone else wants to look at it, feel free, but be warned that it's a
> bit of a swamp in there ;)
I'd probably do more harm than good by putting my greasy hands in there.
All I can do right now is give you the corresponding test for your
suite. HTH.
--
echo "Your stdio isn't very std."
-- Larry Wall in Configure from the perl distribution
commit fb923923b21682b224efa2e6d2b7798093cc2ac3
Author: Frédéric Brière <[EMAIL PROTECTED]>
Date: Fri Jul 25 11:04:10 2008 -0400
Created flush_and_store test for Debian bug #436507
diff --git a/t/05-request.t b/t/05-request.t
index 5698aa4..a590f93 100644
--- a/t/05-request.t
+++ b/t/05-request.t
@@ -935,5 +935,25 @@ EOF
#------------------------------------------------------------
+ $group->add_test( name => 'flush_and_store',
+ description => 'Test that $m->flush_buffer in a store\'d component will not flush to STDOUT',
+ component => <<'EOF',
+<%def .world>\
+World\
+% $m->flush_buffer;
+</%def>
+
+% my $world;
+% $m->comp( { store => \$world }, '.world');
+% print "Hello, $world!\n";
+EOF
+ expect => <<'EOF',
+
+Hello, World!
+EOF
+ );
+
+#------------------------------------------------------------
+
return $group;
}
