Correct default for usedevel on VMS.

[perl5.git] / regen_perly.pl

diff --git a/regen_perly.pl b/regen_perly.pl
index b962756..bf484bb 100644 (file)
--- 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: $_";
        }