Missing chunk in change #26926
Rafael Garcia-Suarez [Mon, 23 Jan 2006 15:18:30 +0000 (15:18 +0000)]
p4raw-link: @26926 on //depot/perl: 6fbb66d654f8539b40e6cdc4ce45f9e073f37d64

p4raw-id: //depot/perl@26927

t/op/taint.t

index 3d333c8..b544262 100755 (executable)
@@ -1140,12 +1140,11 @@ TERNARY_CONDITIONALS: {
 
 {
     my @a;
+    local $::TODO = 1;
     $a[0] = $^X;
     my $i = 0;
     while($a[0]=~ m/(.)/g ) {
        last if $i++ > 10000;
     }
     cmp_ok $i, '<', 10000, "infinite m//g";
-    
 }
-