We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 5422e75 commit e179ce9Copy full SHA for e179ce9
lib/ExtUtils/MM_Unix.pm
@@ -1759,8 +1759,9 @@ sub init_CORE {
1759
1760
# Are we building the core?
1761
$self->{PERL_CORE} = $ENV{PERL_CORE} unless exists $self->{PERL_CORE};
1762
+ $self->{PERL_CORE} = 0 unless defined $self->{PERL_CORE};
1763
- if ((!defined $self->{PERL_CORE} || $self->{PERL_CORE}) && !$self->{PERL_SRC}){
1764
+ unless ($self->{PERL_SRC}){
1765
foreach my $dir_count (1..8) { # 8 is the VMS limit for nesting
1766
my $dir = $self->catdir(($Updir) x $dir_count);
1767
@@ -1769,7 +1770,6 @@ sub init_CORE {
1769
1770
-f $self->catfile($dir,"lib","strict.pm")
1771
) {
1772
$self->{PERL_SRC} = $dir ;
- $self->{PERL_CORE} = 1;
1773
last;
1774
}
1775
0 commit comments