diff options
author | Father Chrysostomos <sprout@cpan.org> | 2012-01-05 20:48:49 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2012-01-05 20:48:54 -0800 |
commit | c7102404ab5c18fd683fb5264665505b169ba928 (patch) | |
tree | 482c9e8a97e186af743124f3ff6e935cfea06caf /lib/utf8.t | |
parent | 480e0d3cb5dd65d869513ab5419347ef0d1c9763 (diff) | |
download | perl-c7102404ab5c18fd683fb5264665505b169ba928.tar.gz |
perlop: remove triple-dot
This has been superseded by c2f1e229, which adds it
to perlsyn.
Diffstat (limited to 'lib/utf8.t')
-rw-r--r-- | lib/utf8.t | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lib/utf8.t b/lib/utf8.t index e56eebf626..76ab7df261 100644 --- a/lib/utf8.t +++ b/lib/utf8.t @@ -450,6 +450,17 @@ SKIP: { } { + # utf8::decode should stringify refs [perl #91850]. + + package eieifg { use overload '""' => sub { "\x{c3}\x{b3}" }, + fallback => 1 } + + my $name = bless[], eieifg::; + utf8::decode($name); + is $name, "\xf3", 'utf8::decode flattens references'; +} + +{ my $a = "456\xb6"; utf8::upgrade($a); |