summaryrefslogtreecommitdiff
path: root/regen_perly.pl
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2014-06-13 15:21:25 -0400
committerJarkko Hietaniemi <jhi@iki.fi>2014-06-13 15:41:55 -0400
commitb5bbe64ad2ec51417ef02ac52304ed45fe37be3f (patch)
tree71f1b45882f215a6d886d3bc08954c02a54e6af0 /regen_perly.pl
parent7053d92917f7cb46452de86dc4c6d8644cae849c (diff)
downloadperl-b5bbe64ad2ec51417ef02ac52304ed45fe37be3f.tar.gz
Remove MAD.
MAD = Misc Attribute Decoration; unmaintained attempt at preserving the Perl parse tree more faithfully so that automatic conversion to Perl 6 would have been easier.
Diffstat (limited to 'regen_perly.pl')
-rw-r--r--regen_perly.pl2
1 files changed, 1 insertions, 1 deletions
diff --git a/regen_perly.pl b/regen_perly.pl
index b96275639c..bf484bbed6 100644
--- a/regen_perly.pl
+++ b/regen_perly.pl
@@ -272,7 +272,7 @@ 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*=/) {
+ if (/(\$\d+)\s*=[^=]/) {
warn "$y_file:$.: dangerous assignment to $1: $_";
}