diff options
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|; +} |