diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2015-02-28 22:12:30 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2015-02-28 22:13:00 -0800 |
| commit | 179b3fadcd608f8420b9976426de4456289a8bc5 (patch) | |
| tree | 01c24d07e2ef7fd30a3d3060573c65446317dc82 /t/base | |
| parent | 26f4cc19a2cf5dc32334b22cd7f719a3bb577497 (diff) | |
| download | perl-179b3fadcd608f8420b9976426de4456289a8bc5.tar.gz | |
Test for split after my $_ [perl #123763]
Diffstat (limited to 't/base')
| -rw-r--r-- | t/base/lex.t | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/t/base/lex.t b/t/base/lex.t index 47816fc13d..9a8cf145a5 100644 --- a/t/base/lex.t +++ b/t/base/lex.t @@ -497,3 +497,9 @@ eval '"$a{ 1 m// }"; //'; # Used to crash [perl #123801] eval q|s##[}#e|; + +# Used to fail an assertion [perl #123763] +{ + local $SIG{__WARN__}=sub{}; + eval q|my($_);0=split|; +} |