From: Father Chrysostomos <sprout@cpan.org>
Date: Mon, 15 Nov 2010 00:33:34 +0000 (-0800)
Subject: Make the new formline test fail more reliably
X-Git-Tag: v5.13.7~94
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/00cb33d673fd6261c17af74ca3ad5709dfc03b03?hp=7e6078c645571643c0a8840234dc94bc4572a5e4;ds=sidebyside

Make the new formline test fail more reliably
---

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");
 }