diff options
author | Aaron Crane <arc@cpan.org> | 2019-04-26 14:02:47 +0100 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2019-05-03 09:28:05 +1000 |
commit | 9a48f2ab9670d2d0c57075bcf3653fd7c05e3535 (patch) | |
tree | aabc7e4b1a4f17b3f44d8c7acc363404526809c2 /t/comp | |
parent | b7b52646bdd14487f27b3cbf58bf526fbaee140f (diff) | |
download | perl-9a48f2ab9670d2d0c57075bcf3653fd7c05e3535.tar.gz |
RT#134061: don't call pad_findmy_pvn() with invalid flags
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 79b669d807..4179880497 100644 --- a/t/comp/parser_run.t +++ b/t/comp/parser_run.t @@ -10,7 +10,7 @@ BEGIN { set_up_inc( qw(. ../lib ) ); } -plan(5); +plan(6); # [perl #130814] can reallocate lineptr while looking ahead for # "Missing $ on loop variable" diagnostic. @@ -55,5 +55,13 @@ syntax error at - line 1, at EOF Execution of - aborted due to compilation errors. EXPECTED +fresh_perl_is(<<'EOS', <<'EXPECT', {}, 'no panic in pad_findmy_pvn (#134061)'); +use utf8; +eval "sort \x{100}%"; +die $@; +EOS +syntax error at (eval 1) line 1, at EOF +EXPECT + __END__ # ex: set ts=8 sts=4 sw=4 et: |