diff options
| author | Karl Williamson <khw@cpan.org> | 2018-08-15 17:11:15 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2019-02-14 22:12:44 -0700 |
| commit | e4f9f79853e160e0e5d0cbde06c1a60e8e85a94e (patch) | |
| tree | e4cb7f6bb6f237e04de84e5c35df7c4d67c3aa6d /t/re/regexp_unicode_prop.t | |
| parent | 61ac831b8aceb59292577c3d45b6504952ead7cc (diff) | |
| download | perl-e4f9f79853e160e0e5d0cbde06c1a60e8e85a94e.tar.gz | |
t/re/regexp_unicode_prop.t: Test that can have nested pkgs
That is, in \p{user-defined}
Diffstat (limited to 't/re/regexp_unicode_prop.t')
| -rw-r--r-- | t/re/regexp_unicode_prop.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/re/regexp_unicode_prop.t b/t/re/regexp_unicode_prop.t index 192654b69b..c604391fa9 100644 --- a/t/re/regexp_unicode_prop.t +++ b/t/re/regexp_unicode_prop.t @@ -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) |