diff options
Diffstat (limited to 't/comp')
| -rw-r--r-- | t/comp/parser_run.t | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/t/comp/parser_run.t b/t/comp/parser_run.t index 0fca5b2800..a2cc27d3fb 100644 --- a/t/comp/parser_run.t +++ b/t/comp/parser_run.t @@ -10,7 +10,7 @@ BEGIN { } require './test.pl'; -plan(2); +plan(3); # [perl #130814] can reallocate lineptr while looking ahead for # "Missing $ on loop variable" diagnostic. @@ -31,5 +31,13 @@ EOS Unrecognized character \xD5; marked by <-- HERE after ${ <-- HERE near column 4 at - line 1. EXPECT +fresh_perl_is(<<'EOS', <<'EXPECTED', {}, "use after free (#131836)"); +${sub#xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx +EOS +Missing right curly or square bracket at - line 1, at end of line +syntax error at - line 1, at EOF +Execution of - aborted due to compilation errors. +EXPECTED + __END__ # ex: set ts=8 sts=4 sw=4 et: |