This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
un-TODO the test for 120535, Reini's patch fixes it
[perl5.git] / ext / B / t / b.t
index e52e24f..1fee139 100644 (file)
@@ -416,7 +416,6 @@ EOS
 }
 
 { # [perl #120535]
-    local $TODO = "B::HV->ARRAY doesn't preserve UTF8 flag";
     my %h = ( "\x{100}" => 1 );
     my $b = B::svref_2object(\%h);
     my ($k, $v) = $b->ARRAY;