diff options
author | Tony Cook <tony@develop-help.com> | 2015-05-05 16:23:59 +1000 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2015-05-05 16:23:59 +1000 |
commit | b12396ac84cef7e23e1aac516fa676165ddfc790 (patch) | |
tree | 612a9d3ae16e682941f5a17137d25559b4ddf262 /t/base | |
parent | 57e88091a0a502716610aeeade5461e8e8a2192a (diff) | |
download | perl-b12396ac84cef7e23e1aac516fa676165ddfc790.tar.gz |
[perl #124187] don't call pad_findlex() on a NULL CV
Diffstat (limited to 't/base')
-rw-r--r-- | t/base/lex.t | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/t/base/lex.t b/t/base/lex.t index 0a07ab73c3..a34a508653 100644 --- a/t/base/lex.t +++ b/t/base/lex.t @@ -506,3 +506,8 @@ eval q|s##[}#e|; eval q|my($_);0=split|; eval q|my $_; @x = split|; } + +{ + # Used to crash [perl #124187] + eval q|qq{@{[{}}*sub{]]}}}=u|; +} |