diff options
Diffstat (limited to 't/base')
| -rw-r--r-- | t/base/lex.t | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/t/base/lex.t b/t/base/lex.t index c917d4f4fd..f93816855c 100644 --- a/t/base/lex.t +++ b/t/base/lex.t @@ -482,3 +482,6 @@ print "not " unless &{sub :lvalue { "a" }} eq "a"; print "ok $test - &{sub :lvalue...}\n"; $test++; print "not " unless ref +(map{sub :lvalue { "a" }} 1)[0] eq "CODE"; print "ok $test - map{sub :lvalue...}\n"; $test++; + +# Used to crash [perl #123711] +0-5x-l{0}; |