Skip to content

Commit b9a0a53

Browse files
Reini Urbanrurban
authored andcommitted
skip cperl builtin prereqs
1 parent 8e0168c commit b9a0a53

File tree

1 file changed

+7
-0
lines changed

1 file changed

+7
-0
lines changed

lib/CPAN/Distribution.pm

Lines changed: 7 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -2646,6 +2646,12 @@ sub follow_prereqs {
26462646
my(@good_prereq_tuples);
26472647
for my $p (@prereq_tuples) {
26482648
# e.g. $p = ['Devel::PartialDump', 'r', 1]
2649+
# skip builtins without .pm
2650+
if ($Config::Config{usecperl}
2651+
and $p->[0] =~ /^(DynaLoader|XSLoader|strict|coretypes)$/) {
2652+
CPAN->debug("$p->[0] builtin") if $CPAN::DEBUG;
2653+
next;
2654+
}
26492655
# promote if possible
26502656
if ($p->[1] =~ /^(r|c)$/) {
26512657
push @good_prereq_tuples, $p;
@@ -2660,6 +2666,7 @@ sub follow_prereqs {
26602666
die "Panic: in follow_prereqs: reqtype[$p->[1]] seen, should never happen";
26612667
}
26622668
}
2669+
return unless @good_prereq_tuples;
26632670
my $pretty_id = $self->pretty_id;
26642671
my %map = (
26652672
b => "build_requires",

0 commit comments

Comments
 (0)