diff options
Diffstat (limited to 't/comp')
-rw-r--r-- | t/comp/parser_run.t | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/t/comp/parser_run.t b/t/comp/parser_run.t index a2cc27d3fb..af35758bee 100644 --- a/t/comp/parser_run.t +++ b/t/comp/parser_run.t @@ -10,7 +10,7 @@ BEGIN { } require './test.pl'; -plan(3); +plan(4); # [perl #130814] can reallocate lineptr while looking ahead for # "Missing $ on loop variable" diagnostic. @@ -39,5 +39,15 @@ syntax error at - line 1, at EOF Execution of - aborted due to compilation errors. EXPECTED +SKIP: +{ + # [perl #131949] use after free + # detected by ASAN + # Win32 cmd.exe can't handle newlines well + skip("Need POSIXish", 1) if $^O eq "MSWin32"; + my $out = runperl(prog => "\@{ 0\n\n}", stderr => 1, non_portable => 1); + is($out, "", "check for ASAN use after free"); +} + __END__ # ex: set ts=8 sts=4 sw=4 et: |