Make the new formline test fail more reliably

[perl5.git] / t / op / taint.t

diff --git a/t/op/taint.t b/t/op/taint.t
index fc90871..158824e 100644 (file)
--- 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);
 {
     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");
 }
 end
     "formline survives a tainted dynamic picture");
 }