Missing chunk in change #26926
[p5sagit/p5-mst-13.2.git] / 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";
-    
 }
-