summaryrefslogtreecommitdiff
path: root/lib/ExtUtils/MM_Unix.pm
diff options
context:
space:
mode:
authorSteve Hay <SteveHay@planit.com>2005-04-27 08:35:40 +0000
committerSteve Hay <SteveHay@planit.com>2005-04-27 08:35:40 +0000
commit6383bd231af7f2656c299fa25c460180b9bf54b4 (patch)
tree74423f565dee6f736383674f8b86cac36f434263 /lib/ExtUtils/MM_Unix.pm
parent88d019551b04ba7828be67e8c0f62de7f769b5d5 (diff)
downloadperl-6383bd231af7f2656c299fa25c460180b9bf54b4.tar.gz
Win32 MM test fix
From: Michael G Schwern <schwern@pobox.com> Date: Mon, 18 Apr 2005 14:30:19 -0700 Message-ID: <20050418213019.GA15797@windhund.schwern.org> Subject: Re: Win32 MM test fix From: demerphq <demerphq@gmail.com> Date: Tue, 19 Apr 2005 00:57:59 +0200 Message-ID: <9b18b31105041815573e10dc10@mail.gmail.com> p4raw-id: //depot/perl@24334
Diffstat (limited to 'lib/ExtUtils/MM_Unix.pm')
-rw-r--r--lib/ExtUtils/MM_Unix.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm
index 4e4326d5fb..34fec38db7 100644
--- a/lib/ExtUtils/MM_Unix.pm
+++ b/lib/ExtUtils/MM_Unix.pm
@@ -1921,7 +1921,8 @@ sub init_PERL {
}
# Are we building the core?
- $self->{PERL_CORE} = 0 unless exists $self->{PERL_CORE};
+ $self->{PERL_CORE} = $ENV{PERL_CORE} unless exists $self->{PERL_CORE};
+ $self->{PERL_CORE} = 0 unless defined $self->{PERL_CORE};
# How do we run perl?
foreach my $perl (qw(PERL FULLPERL ABSPERL)) {