summaryrefslogtreecommitdiff
path: root/lib/utf8.t
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2012-01-05 20:48:49 -0800
committerFather Chrysostomos <sprout@cpan.org>2012-01-05 20:48:54 -0800
commitc7102404ab5c18fd683fb5264665505b169ba928 (patch)
tree482c9e8a97e186af743124f3ff6e935cfea06caf /lib/utf8.t
parent480e0d3cb5dd65d869513ab5419347ef0d1c9763 (diff)
downloadperl-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.t11
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);