Skip to content

Commit e179ce9

Browse files
haargbingos
authored andcommitted
Revert "only search for PERL_SRC when PERL_CORE is true or unset"
This reverts commit ad48ea3.
1 parent 5422e75 commit e179ce9

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

lib/ExtUtils/MM_Unix.pm

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1759,8 +1759,9 @@ sub init_CORE {
17591759

17601760
# Are we building the core?
17611761
$self->{PERL_CORE} = $ENV{PERL_CORE} unless exists $self->{PERL_CORE};
1762+
$self->{PERL_CORE} = 0 unless defined $self->{PERL_CORE};
17621763

1763-
if ((!defined $self->{PERL_CORE} || $self->{PERL_CORE}) && !$self->{PERL_SRC}){
1764+
unless ($self->{PERL_SRC}){
17641765
foreach my $dir_count (1..8) { # 8 is the VMS limit for nesting
17651766
my $dir = $self->catdir(($Updir) x $dir_count);
17661767

@@ -1769,7 +1770,6 @@ sub init_CORE {
17691770
-f $self->catfile($dir,"lib","strict.pm")
17701771
) {
17711772
$self->{PERL_SRC} = $dir ;
1772-
$self->{PERL_CORE} = 1;
17731773
last;
17741774
}
17751775
}

0 commit comments

Comments
 (0)