diff options
author | Lukas Mai <l.mai@web.de> | 2017-11-12 02:58:32 +0100 |
---|---|---|
committer | Lukas Mai <l.mai@web.de> | 2017-11-12 03:15:27 +0100 |
commit | 4efcdc0252c3ba1728081298180489b8772bc6d6 (patch) | |
tree | 10c8b6bc15104061ad1c466e3c63b1ab2dd4aa8c /t/comp | |
parent | d1ac83c4011b4bf51ca3fb070737a97a6c6ac545 (diff) | |
download | perl-4efcdc0252c3ba1728081298180489b8772bc6d6.tar.gz |
prevent invalid memory access in S_check_uni (RT #132433)
Diffstat (limited to 't/comp')
-rw-r--r-- | t/comp/parser_run.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/t/comp/parser_run.t b/t/comp/parser_run.t index eba4b9fba8..2408fcd2b4 100644 --- a/t/comp/parser_run.t +++ b/t/comp/parser_run.t @@ -10,7 +10,7 @@ BEGIN { set_up_inc( qw(. ../lib ) ); } -plan(4); +plan(5); # [perl #130814] can reallocate lineptr while looking ahead for # "Missing $ on loop variable" diagnostic. @@ -49,5 +49,11 @@ SKIP: is($out, "", "check for ASAN use after free"); } +fresh_perl_is('-C-', <<'EXPECTED', {}, "ambiguous unary operator check doesn't crash (#132433)"); +Warning: Use of "-C-" without parentheses is ambiguous at - line 1. +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: |