From 00cb33d673fd6261c17af74ca3ad5709dfc03b03 Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Sun, 14 Nov 2010 16:33:34 -0800
Subject: [PATCH] Make the new formline test fail more reliably

---
 t/op/taint.t | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/t/op/taint.t b/t/op/taint.t
index fc90871..158824e 100644
--- a/t/op/taint.t
+++ b/t/op/taint.t
@@ -1399,7 +1399,8 @@ foreach my $ord (78, 163, 256) {
 {
     fresh_perl_is(<<'end', "ok", { switches => [ '-T' ] },
     $TAINT = substr($^X, 0, 0);
-    formline('@'.('<'x("21".$TAINT)).' | @*', 'hallo', 'welt'); print "ok";
+    formline('@'.('<'x("2000".$TAINT)).' | @*', 'hallo', 'welt');
+    print "ok";
 end
     "formline survives a tainted dynamic picture");
 }
-- 
2.7.4