summaryrefslogtreecommitdiff
path: root/dist/Devel-PPPort/devel/scanprov
diff options
context:
space:
mode:
authorNicolas R <nicolas@atoomic.org>2020-08-11 13:45:54 -0600
committerNicolas R <atoomic@cpan.org>2020-08-11 15:14:27 -0500
commite1faf63017546d58dea06953a23d67b5ffa44d24 (patch)
treee86fa4fdeb717d222dfb6a0f14bd0f5c7cd48584 /dist/Devel-PPPort/devel/scanprov
parent9220d40397f9112dc4bd96e63c639c3781cd1811 (diff)
downloadperl-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-xdist/Devel-PPPort/devel/scanprov18
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};
+ }
}
}
}