diff options
| author | Bo Borgerson <gigabo@gmail.com> | 2009-08-26 09:47:33 -0400 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2009-09-13 20:16:17 +0200 |
| commit | a6d8037e26aaceac1a62ab1a36249ff12386c7ff (patch) | |
| tree | 8698c6eca6a90d3b477aff15d1ba3c8b8f4cfd02 /t/re | |
| parent | d681dfadbe84f87244e6602d414cdb00dce19f95 (diff) | |
| download | perl-a6d8037e26aaceac1a62ab1a36249ff12386c7ff.tar.gz | |
split: Remove implicit split to @_
Remove the long deprecated feature where split in scalar context writes to @_
Diffstat (limited to 't/re')
| -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"; } |