From: Craig A. Berry <craigberry@mac.com>
Date: Sun, 21 Dec 2003 23:07:13 +0000 (-0600)
Subject: configure.com archname tweak
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=affad296a0fe1a58e4d23e469b2f2b67e4f15e00;p=p5sagit%2Fp5-mst-13.2.git

configure.com archname tweak
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3FE67C01.1000704@mac.com>

p4raw-id: //depot/perl@21944
---

diff --git a/configure.com b/configure.com
index 20537b5..e32210f 100644
--- a/configure.com
+++ b/configure.com
@@ -5109,7 +5109,7 @@ $   WS "    iss =  ((iss&1)==1 && code == 0x1234);"
 $   WS "    printf(""%d\n"",iss);"
 $   WS "}"
 $   CS
-$   IF (archname .EQS. "VMS_AXP")
+$   IF (F$EXTRACT(0,7,archname) .EQS. "VMS_AXP")
 $   THEN
 $     GOSUB compile
 $   ELSE
@@ -6400,8 +6400,8 @@ $   echo ""
 $   echo4 "The perl.cld file is now being written..."
 $   OPEN/WRITE CONFIG 'file_2_find'
 $   ext = ".exe"
-$   IF (sharedperl .AND. archname .EQS. "VMS_AXP") THEN ext := .AXE
-$   IF (sharedperl .AND. archname .EQS. "VMS_IA64") THEN ext := .IXE
+$   IF (sharedperl .AND. F$EXTRACT(0,7,archname) .EQS. "VMS_AXP") THEN ext := .AXE
+$   IF (sharedperl .AND. F$EXTRACT(0,8,archname) .EQS. "VMS_IA64") THEN ext := .IXE
 $   IF (use_vmsdebug_perl)
 $   THEN
 $     WRITE CONFIG "define verb dbgperl"