diff options
| author | Craig A. Berry <craigberry@mac.com> | 2016-03-25 16:48:35 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2016-03-25 16:48:35 -0500 |
| commit | 15daaef1c6ad780d2bd6b197bf9fda7408acb22e (patch) | |
| tree | 042008f5b80d3acb29f608f22321811c8c291a8b /t/re | |
| parent | 3879c54df7f72f45d1de598a7fb4f1a051ca1cfa (diff) | |
| download | perl-15daaef1c6ad780d2bd6b197bf9fda7408acb22e.tar.gz | |
Suppress another empty \N{} warning in pat_advanced.t.
Follow-up to d8d26cacf9f6b2fbd476.
Diffstat (limited to 't/re')
| -rw-r--r-- | t/re/pat_advanced.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/t/re/pat_advanced.t b/t/re/pat_advanced.t index 376272bb17..913e84662f 100644 --- a/t/re/pat_advanced.t +++ b/t/re/pat_advanced.t @@ -2313,6 +2313,7 @@ EOF is "$1" || $@, "foo", 'multichar \N{...} stringified and retoked'; } { # empty \N{...} tripping roundly + no warnings 'deprecated'; BEGIN { $^H{charnames} = sub { "" } } my $qr = qr$(a\N{foo}t)$; "at" =~ eval "qr/$qr/"; |