diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-08-09 11:47:50 +0200 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-08-09 11:47:50 +0200 |
| commit | 2dcb77c26736076b3481dcbbca7b173a29d8a0e4 (patch) | |
| tree | 3283dd85d4a0422cb46c5efbb2dc869ca8733bc2 /Porting/checkcfgvar.pl | |
| parent | 4ccedf19068db1b38e89a50a04ef6c446c6716df (diff) | |
| download | perl-2dcb77c26736076b3481dcbbca7b173a29d8a0e4.tar.gz | |
In checkcfgvar.pl, eliminate the file-scope lexical %MASTER_CFG.
Diffstat (limited to 'Porting/checkcfgvar.pl')
| -rwxr-xr-x | Porting/checkcfgvar.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Porting/checkcfgvar.pl b/Porting/checkcfgvar.pl index e8342eac40..66787d5ae1 100755 --- a/Porting/checkcfgvar.pl +++ b/Porting/checkcfgvar.pl @@ -28,7 +28,6 @@ GetOptions ( ) or usage (1); my $MASTER_CFG = "config_h.SH"; -my %MASTER_CFG; my %lst; my @CFG = ( @@ -53,16 +52,19 @@ my @CFG = ( "Porting/config.sh", ); +my @MASTER_CFG; { + my %seen; open my $fh, '<', $MASTER_CFG; while (<$fh>) { while (/[^\\]\$([a-z]\w+)/g) { my $v = $1; next if $v =~ /^(CONFIG_H|CONFIG_SH)$/; - $MASTER_CFG{$v}++; + $seen{$v}++; } } close $fh; + @MASTER_CFG = sort keys %seen; } my %MANIFEST; @@ -75,8 +77,6 @@ my %MANIFEST; close $fh; } -my @MASTER_CFG = sort keys %MASTER_CFG; - for my $cfg (@CFG) { unless (exists $MANIFEST{$cfg}) { print STDERR "[skipping not-expected '$cfg']\n"; |