From: Paul Green Date: Fri, 11 Jan 2002 17:30:37 +0000 (-0500) Subject: More fixes for Stratus VOS X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cf346138d65ead98b6b0db39f170b648fd861ca2;p=p5sagit%2Fp5-mst-13.2.git More fixes for Stratus VOS Message-Id: <95AE3CDB3543D511883A0020485B38B9023534D3@exna3.stratus.com> p4raw-id: //depot/perl@14212 --- diff --git a/hints/vos.sh b/hints/vos.sh index 52523be..f4e9700 100644 --- a/hints/vos.sh +++ b/hints/vos.sh @@ -71,3 +71,6 @@ pager="/system/gnu_library/bin/cat.pm" # VOS has a bug that causes _exit() to flush all files. # This confuses the tests. Make 'em happy here. fflushNULL=define + +# VOS has a link() function but it is a dummy. +d_link="undef" diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm index 6c08d9a..82b8f69 100644 --- a/lib/ExtUtils/MM_Unix.pm +++ b/lib/ExtUtils/MM_Unix.pm @@ -11,7 +11,7 @@ use strict; our ($Is_Mac,$Is_OS2,$Is_VMS,$Is_Win32,$Is_Dos, $Verbose,%pm,%static,$Xsubpp_Version); -our $VERSION = '1.12604'; +our $VERSION = '1.12605'; require ExtUtils::MakeMaker; ExtUtils::MakeMaker->import(qw($Verbose &neatvalue)); @@ -1613,10 +1613,11 @@ sub init_dirscan { # --- File and Directory Lists (.xs .pm .pod etc) =item init_main -Initializes NAME, FULLEXT, BASEEXT, PARENT_NAME, DLBASE, PERL_SRC, -PERL_LIB, PERL_ARCHLIB, PERL_INC, INSTALLDIRS, INST_*, INSTALL*, -PREFIX, CONFIG, AR, AR_STATIC_ARGS, LD, OBJ_EXT, LIB_EXT, EXE_EXT, MAP_TARGET, -LIBPERL_A, VERSION_FROM, VERSION, DISTNAME, VERSION_SYM. +Initializes AR, AR_STATIC_ARGS, BASEEXT, CONFIG, DISTNAME, DLBASE, +EXE_EXT, FULLEXT, FULLPERL, INST_*, INSTALL*, INSTALLDIRS, LD, +LIB_EXT, LIBPERL_A, MAP_TARGET, NAME, OBJ_EXT, PARENT_NAME, PERL, +PERL_ARCHLIB, PERL_INC, PERL_LIB, PERL_SRC, PERLRUN, PERLRUNINST, +PREFIX, TEST_LIBS, VERSION, VERSION_FROM, VERSION_SYM, XS_VERSION. =cut @@ -2037,6 +2038,11 @@ usually solves this kind of problem. push @perls, 'miniperl'; } + # Build up a set of file names (not command names). + foreach $element (@perls) { + $element .= "$Config{exe_ext}"; + } + $self->{PERL} ||= $self->find_perl(5.0, \@perls, \@defpath, $Verbose ); # don't check if perl is executable, maybe they have decided to