This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
ca53e5d
)
TODO test for 120535
author
Tony Cook
<tony@develop-help.com>
Mon, 18 Nov 2013 04:16:31 +0000
(15:16 +1100)
committer
Tony Cook
<tony@develop-help.com>
Mon, 18 Nov 2013 04:16:31 +0000
(15:16 +1100)
ext/B/t/b.t
patch
|
blob
|
blame
|
history
diff --git
a/ext/B/t/b.t
b/ext/B/t/b.t
index
cbf9e1f
..
e52e24f
100644
(file)
--- a/
ext/B/t/b.t
+++ b/
ext/B/t/b.t
@@
-415,4
+415,12
@@
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;
+ is($k, "\x{100}", "check utf8 preserved by B::HV::ARRAY");
+}
+
done_testing();