Commit 84ff93f
Fix prototype parsing: allow trailing comma before semicolon
When calling a prototype function without parentheses, a trailing comma
before the statement terminator was incorrectly treated as 'too many
arguments'. In Perl, trailing commas are allowed:
like $warning, qr/foo/, 'test',; # valid Perl
The fix checks if the comma is followed by a statement terminator (;, EOF,
or other expression terminators) and allows it in that case.
This fixes t/conflicts.t in Dist::CheckConflicts which uses this pattern.
Generated with [Devin](https://cli.devin.ai/docs)
Co-Authored-By: Devin <158243242+devin-ai-integration[bot]@users.noreply.github.com>1 parent 8085636 commit 84ff93f
2 files changed
Lines changed: 15 additions & 3 deletions
| Original file line number | Diff line number | Diff line change | |
|---|---|---|---|
| |||
33 | 33 | | |
34 | 34 | | |
35 | 35 | | |
36 | | - | |
| 36 | + | |
37 | 37 | | |
38 | 38 | | |
39 | 39 | | |
| |||
Lines changed: 14 additions & 2 deletions
| Original file line number | Diff line number | Diff line change | |
|---|---|---|---|
| |||
165 | 165 | | |
166 | 166 | | |
167 | 167 | | |
168 | | - | |
| 168 | + | |
169 | 169 | | |
170 | | - | |
| 170 | + | |
| 171 | + | |
| 172 | + | |
| 173 | + | |
| 174 | + | |
| 175 | + | |
| 176 | + | |
| 177 | + | |
| 178 | + | |
| 179 | + | |
| 180 | + | |
| 181 | + | |
| 182 | + | |
171 | 183 | | |
172 | 184 | | |
173 | 185 | | |
| |||
0 commit comments