diff options
author | Nicholas Clark <nick@ccl4.org> | 2011-08-09 10:51:09 +0200 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2011-08-09 11:29:50 +0200 |
commit | 1750d3ff2eed6c4b057e139a98d99b148b9fc4c6 (patch) | |
tree | bf79ad750ce7db3a63bcc9b1732b10d62d891aa7 /Porting | |
parent | 2186be13a01ba687b2fe25f0d5c898031257c2b5 (diff) | |
download | perl-1750d3ff2eed6c4b057e139a98d99b148b9fc4c6.tar.gz |
In checkcfgvar.pl, inline check_cfg() into its only caller.
Diffstat (limited to 'Porting')
-rwxr-xr-x | Porting/checkcfgvar.pl | 24 |
1 files changed, 10 insertions, 14 deletions
diff --git a/Porting/checkcfgvar.pl b/Porting/checkcfgvar.pl index 61ecb1e332..b7022dc22f 100755 --- a/Porting/checkcfgvar.pl +++ b/Porting/checkcfgvar.pl @@ -87,19 +87,6 @@ read_file("MANIFEST", my @MASTER_CFG = sort keys %MASTER_CFG; -sub check_cfg { - my ($fn, $cfg) = @_; - for my $v (@MASTER_CFG) { - exists $cfg->{$v} and next; - if ($opt_l) { - $lst{$fn}{$v}++; - } - else { - print "$fn: missing '$v'\n"; - } - } -} - for my $cfg (@CFG) { unless (exists $MANIFEST{$cfg}) { print STDERR "[skipping not-expected '$cfg']\n"; @@ -130,7 +117,16 @@ for my $cfg (@CFG) { if ($cfg eq 'configure.com') { $cfg{startperl}++; # Cheat. } - check_cfg($cfg, \%cfg); + + for my $v (@MASTER_CFG) { + exists $cfg{$v} and next; + if ($opt_l) { + $lst{$cfg}{$v}++; + } + else { + print "$cfg: missing '$v'\n"; + } + } } $opt_l and print "$_\n" for sort keys %lst; |