[perl #87708] $tied / $tied under use integer

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

diff --git a/t/op/tie_fetch_count.t b/t/op/tie_fetch_count.t
index 6643941..d6cf9c6 100644 (file)
--- a/t/op/tie_fetch_count.t
+++ b/t/op/tie_fetch_count.t
@@ -231,10 +231,7 @@ bin_test '.' ,  1, 2, 12;
     bin_test '+' ,  1, 2, 3;
 }
 bin_int_test '*' ,  2, 3, 6;
     bin_test '+' ,  1, 2, 3;
 }
 bin_int_test '*' ,  2, 3, 6;

-{
-    local $TODO = $todo ;
-    bin_int_test '/' , 10, 2, 5;
-}
+bin_int_test '/' , 10, 2, 5;

 bin_int_test '%' , 11, 2, 1;
 bin_int_test '+' ,  1, 2, 3;
 bin_int_test '-' , 11, 2, 9;
 bin_int_test '%' , 11, 2, 1;
 bin_int_test '+' ,  1, 2, 3;
 bin_int_test '-' , 11, 2, 9;