This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make the new formline test fail more reliably
[perl5.git] / t / op / taint.t
index fc90871..158824e 100644 (file)
@@ -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");
 }