summaryrefslogtreecommitdiff
path: root/configure.com
diff options
context:
space:
mode:
authorCraig A. Berry <craigberry@mac.com>2003-12-21 17:07:13 -0600
committerH.Merijn Brand <h.m.brand@xs4all.nl>2003-12-22 10:13:43 +0000
commitaffad296a0fe1a58e4d23e469b2f2b67e4f15e00 (patch)
tree1c30fef42b4bb1d31dc192fb54a097027dff443e /configure.com
parent595bde10f833ec6ce0053cdb47ce14644ea67e2d (diff)
downloadperl-affad296a0fe1a58e4d23e469b2f2b67e4f15e00.tar.gz
configure.com archname tweak
From: "Craig A. Berry" <craigberry@mac.com> Message-ID: <3FE67C01.1000704@mac.com> p4raw-id: //depot/perl@21944
Diffstat (limited to 'configure.com')
-rw-r--r--configure.com6
1 files changed, 3 insertions, 3 deletions
diff --git a/configure.com b/configure.com
index 20537b526b..e32210ff48 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"