diff options
Diffstat (limited to 'vms/genconfig.pl')
| -rw-r--r-- | vms/genconfig.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/vms/genconfig.pl b/vms/genconfig.pl index 17ff2041fa..d2ab5777de 100644 --- a/vms/genconfig.pl +++ b/vms/genconfig.pl @@ -266,7 +266,7 @@ while (<IN>) { elsif (not length $val and not $had_val) { # Wups -- should have been shell var for C preprocessor directive warn "Constant $token not found in config_h.SH\n"; - $token =~ tr/A-Z/a-z/; + $token = lc $token; $token = "d_$token" unless $token =~ /^i_/; print OUT "$token='$state'\n"; } @@ -282,7 +282,7 @@ while (<IN>) { } elsif (!$pp_vars{$token}) { # Haven't seen it previously, either warn "Constant $token not found in config_h.SH (val=|$val|)\n"; - $token =~ tr/A-Z/a-z/; + $token = lc $token; print OUT "$token='$val'\n"; if ($token =~ s/exp$//) {print OUT "$token='$val'\n";} } |