diff options
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: $_"; |