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
authorTony Cook <tony@develop-help.com>
Mon, 18 Nov 2013 04:20:16 +0000 (15:20 +1100)
committerTony Cook <tony@develop-help.com>
Mon, 18 Nov 2013 04:20:16 +0000 (15:20 +1100)
ext/B/t/b.t

index e52e24f..1fee139 100644 (file)
@@ -416,7 +416,6 @@ EOS
 }
 
 { # [perl #120535]
 }
 
 { # [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;
     my %h = ( "\x{100}" => 1 );
     my $b = B::svref_2object(\%h);
     my ($k, $v) = $b->ARRAY;