This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pp_hot.c: First letter of latin-1 classnames wasn't being checked correctly.
[perl5.git] / t / uni / package.t
index 317ddd4..bb9092b 100644 (file)
@@ -6,7 +6,7 @@ BEGIN {
     require './test.pl';
 }
 
-plan (tests => 16);
+plan (tests => 18);
 
 use utf8;
 use open qw( :utf8 :std );
@@ -92,3 +92,20 @@ ok 1, "sanity check. If we got this far, UTF-8 in package names is legal.";
     eval q[package ᕘ {];
     like $@, qr/\AMissing right curly /, "comp/package_block.t test";
 }
+
+# perl #105922
+
+{
+   my $latin_1 = "þackage";
+   my $utf8    = "þackage";
+   utf8::downgrade($latin_1);
+   utf8::upgrade($utf8);
+
+   local $@;
+   eval { $latin_1->can("yadda") };
+   ok(!$@, "latin1->meth works");
+
+   local $@;
+   eval { $utf8->can("yadda") };
+   ok(!$@, "utf8->meth works");
+}