From: Paul Green <Paul.Green@stratus.com>
Date: Fri, 11 Jan 2002 17:30:37 +0000 (-0500)
Subject: More fixes for Stratus VOS
X-Git-Tag: accepted/trunk/20130322.191538~28411
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=cf346138d65ead98b6b0db39f170b648fd861ca2;p=platform%2Fupstream%2Fperl.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