Re: [perl #44623] Optimized magic_setisa has bug

[p5sagit/p5-mst-13.2.git] / t / mro / basic.t

diff --git a/t/mro/basic.t b/t/mro/basic.t
index f23fabe..695306c 100644 (file)
--- a/t/mro/basic.t
+++ b/t/mro/basic.t
@@ -160,10 +160,7 @@ is(eval { MRO_N->testfunc() }, 123);
     ok(eq_array(mro::get_linear_isa('ISACLEAR2'),[qw/ISACLEAR2 YY ZZ/]));
     (@ISACLEAR1::ISA, @ISACLEAR2::ISA) = ();
 
-    {
-        local our $TODO = 1;
-        ok(eq_array(mro::get_linear_isa('ISACLEAR1'),[qw/ISACLEAR1/]));
-    }
+    ok(eq_array(mro::get_linear_isa('ISACLEAR1'),[qw/ISACLEAR1/]));
     ok(eq_array(mro::get_linear_isa('ISACLEAR2'),[qw/ISACLEAR2/]));
 }