diff options
| author | Vadim Konovalov <vkonovalov@lucent.com> | 2002-05-14 04:43:11 +0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-13 23:01:05 +0000 |
| commit | 3f2394f296786314979c2ad3096f123eb7b22930 (patch) | |
| tree | fec2c73c4b973c413b3ad68e156176c08a7b5533 /lib | |
| parent | 51d2fe06df83ebdd253a84d143fe4ca4470e0388 (diff) | |
| download | perl-3f2394f296786314979c2ad3096f123eb7b22930.tar.gz | |
WinCE several touches
Message-ID: <007b01c1fabe$cc8cbbf0$785cc3d9@vad>
p4raw-id: //depot/perl@16582
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ExtUtils/MM_Unix.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm index 5903115918..6e5016c493 100644 --- a/lib/ExtUtils/MM_Unix.pm +++ b/lib/ExtUtils/MM_Unix.pm @@ -1569,7 +1569,7 @@ sub init_main { $self->{PERL_ARCHLIB} = $self->{PERL_LIB}; $self->{PERL_INC} = ($Is_Win32) ? File::Spec->catdir($self->{PERL_LIB},"CORE") : $self->{PERL_SRC}; - if (exists $INC{'Cross.pm'}) { + if (defined $::Cross::platform) { $self->{PERL_ARCHLIB} = File::Spec->catdir("$self->{PERL_SRC}","xlib",$::Cross::platform); $self->{PERL_INC} = File::Spec->catdir("$self->{PERL_SRC}","xlib",$::Cross::platform, $Is_Win32?("CORE"):()); } @@ -1824,7 +1824,7 @@ sub init_INST { unless ($self->{INST_LIB}){ if ($self->{PERL_CORE}) { $self->{INST_LIB} = $self->{INST_ARCHLIB} = $self->{PERL_LIB}; - if (exists $INC{'Cross.pm'}) { + if (defined $::Cross::platform) { $self->{INST_LIB} = $self->{INST_ARCHLIB} = File::Spec->catdir($self->{PERL_LIB},"..","xlib",$::Cross::platform); } } else { |