diff options
Diffstat (limited to 't/re/pat.t')
| -rw-r--r-- | t/re/pat.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/re/pat.t b/t/re/pat.t index 4f4c6f318e..f84e07f1e2 100644 --- a/t/re/pat.t +++ b/t/re/pat.t @@ -2386,8 +2386,8 @@ sub run_tests { local $Message = "(??{ .. }) in split doesn't corrupt its stack"; our $i; ok '-1-3-5-' eq join '', split /((??{$i++}))/, '-1-3-5-'; - no warnings 'deprecated', 'syntax'; - split /(?{'WOW'})/, 'abc'; + no warnings 'syntax'; + @_ = split /(?{'WOW'})/, 'abc'; local $" = "|"; iseq "@_", "a|b|c"; } |