diff options
author | Nicolas R <nicolas@atoomic.org> | 2020-08-11 13:45:54 -0600 |
---|---|---|
committer | Nicolas R <atoomic@cpan.org> | 2020-08-11 15:14:27 -0500 |
commit | e1faf63017546d58dea06953a23d67b5ffa44d24 (patch) | |
tree | e86fa4fdeb717d222dfb6a0f14bd0f5c7cd48584 /dist/Devel-PPPort/devel/scanprov | |
parent | 9220d40397f9112dc4bd96e63c639c3781cd1811 (diff) | |
download | perl-e1faf63017546d58dea06953a23d67b5ffa44d24.tar.gz |
Update Devel-PPPort to release 3.60
This is mainly restoring the PERL_BCDVERSION macro.
PERL_BCDVERSION is used by multiple CPAN distributions
and should not have been renamed.
Diffstat (limited to 'dist/Devel-PPPort/devel/scanprov')
-rwxr-xr-x | dist/Devel-PPPort/devel/scanprov | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/dist/Devel-PPPort/devel/scanprov b/dist/Devel-PPPort/devel/scanprov index 5194e69d18..52c6672246 100755 --- a/dist/Devel-PPPort/devel/scanprov +++ b/dist/Devel-PPPort/devel/scanprov @@ -339,13 +339,17 @@ sub find_first_mentions # config.h symbols are documented; the rest aren't, so use # different flags so downstream processing knows which are # which. - my $new_code = ($is_config_h) ? 'K' : 'Z'; - - foreach my $define (keys %defines) { - - # Don't override input 'M' symbols, or duplicates. - next if defined $remaining{$define}; - $remaining{$define} = $new_code; + if ($is_config_h) { + foreach my $define (keys %defines) { + $remaining{$define} = 'K'; + } + } + else { + foreach my $define (keys %defines) { + # Don't override input 'M' symbols. + $remaining{$define} = $new_code + unless defined $remaining{$define}; + } } } } |