diff options
Diffstat (limited to 't/re/pat_advanced.t')
| -rw-r--r-- | t/re/pat_advanced.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/re/pat_advanced.t b/t/re/pat_advanced.t index b63491e9cc..fc13c6f022 100644 --- a/t/re/pat_advanced.t +++ b/t/re/pat_advanced.t @@ -1645,7 +1645,7 @@ sub run_tests { { # Test for keys in %+ and %- my $message = 'Test keys in %+ and %-'; - no warnings 'uninitialized', 'deprecated'; + no warnings 'uninitialized', 'deprecated', 'experimental::lexical_topic'; my $_ = "abcdef"; /(?<foo>a)|(?<foo>b)/; is((join ",", sort keys %+), "foo", $message); @@ -1666,7 +1666,7 @@ sub run_tests { { # length() on captures, the numbered ones end up in Perl_magic_len - no warnings 'deprecated'; + no warnings 'deprecated', 'experimental::lexical_topic'; my $_ = "aoeu \xe6var ook"; /^ \w+ \s (?<eek>\S+)/x; |