This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Suppress another empty \N{} warning in pat_advanced.t.
authorCraig A. Berry <craigberry@mac.com>
Fri, 25 Mar 2016 21:48:35 +0000 (16:48 -0500)
committerCraig A. Berry <craigberry@mac.com>
Fri, 25 Mar 2016 21:48:35 +0000 (16:48 -0500)
Follow-up to d8d26cacf9f6b2fbd476.

t/re/pat_advanced.t

index 376272b..913e846 100644 (file)
@@ -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/";