This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/re/regexp_unicode_prop.t: Test that can have nested pkgs
authorKarl Williamson <khw@cpan.org>
Wed, 15 Aug 2018 23:11:15 +0000 (17:11 -0600)
committerKarl Williamson <khw@cpan.org>
Fri, 15 Feb 2019 05:12:44 +0000 (22:12 -0700)
That is, in \p{user-defined}

t/re/regexp_unicode_prop.t

index 192654b..c604391 100644 (file)
@@ -141,7 +141,7 @@ BEGIN {
         # is false normally, true under /i
         #
         'IsMyUpper'                => ["M", "!m" ],
-        'pkg::IsMyLower'           => ["a", "!A" ],
+        'pkg1::pkg2::IsMyLower'    => ["a", "!A" ],
     );
 
 
@@ -418,7 +418,7 @@ sub IsMyUpper {
            . "\n&utf8::ASCII";
 }
 
-sub pkg::IsMyLower {
+sub pkg1::pkg2::IsMyLower {
     my $caseless = shift;
     return "+utf8::"
         . (($caseless)