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
authorFather Chrysostomos <sprout@cpan.org>
Mon, 15 Nov 2010 00:33:34 +0000 (16:33 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 15 Nov 2010 00:52:23 +0000 (16:52 -0800)
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");
 }