diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2006-12-13 17:16:22 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2006-12-13 17:16:22 +0000 |
| commit | 295222340ad6893caa0a1c3479155f88ea290dc3 (patch) | |
| tree | 54db55ab76b89e5a588995a9578cc7c2d71df227 /regen_perly.pl | |
| parent | d2c837a0af0259b12bbac41550ec7dc972b876d9 (diff) | |
| download | perl-295222340ad6893caa0a1c3479155f88ea290dc3.tar.gz | |
misc MAD coredump fixes and parser leak fixes
- fix MAD coredump in tr///
- fix mad coredump in multi-line string literals
- kill some MAD uninit value warnings
- don't allow assignment to $n in perly.y
- make op_dump handle op_latefree flags
p4raw-id: //depot/perl@29548
Diffstat (limited to 'regen_perly.pl')
| -rw-r--r-- | regen_perly.pl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/regen_perly.pl b/regen_perly.pl index 674aa78ae9..9c1d601503 100644 --- a/regen_perly.pl +++ b/regen_perly.pl @@ -216,6 +216,10 @@ sub make_type_tab { my $default_token; open my $fh, '<', $y_file or die "Can't open $y_file: $!\n"; while (<$fh>) { + if (/(\$\d+)\s*=/) { + warn "$y_file:$.: dangerous assignment to $1: $_"; + } + if (/__DEFAULT__/) { m{(\w+) \s* ; \s* /\* \s* __DEFAULT__}x or die "$y_file: can't parse __DEFAULT__ line: $_"; |