diff options
Diffstat (limited to 't/comp/parser_run.t')
| -rw-r--r-- | t/comp/parser_run.t | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/t/comp/parser_run.t b/t/comp/parser_run.t index b36b5ad164..1f90e2b15e 100644 --- a/t/comp/parser_run.t +++ b/t/comp/parser_run.t @@ -15,13 +15,11 @@ plan(7); # [perl #130814] can reallocate lineptr while looking ahead for # "Missing $ on loop variable" diagnostic. my $result = fresh_perl( - " foreach m0\n\$" . ("v" x 0x2000), + " foreach my\n\$" . ("v" x 0x2000), { stderr => 1 }, ); is($result . "\n", <<EXPECT); -syntax error at - line 3, near "foreach m0 -" -Identifier too long at - line 3. +Identifier too long at - line 2. EXPECT fresh_perl_is(<<'EOS', <<'EXPECT', {}, "check zero vars"); |