In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/88e94c8da78227f5d839a2b1aca58b5e4fd24364?hp=c9b6887cd19a78084575865dae60303ab8c2f4c1>
- Log -----------------------------------------------------------------
commit 88e94c8da78227f5d839a2b1aca58b5e4fd24364
Author: Craig A. Berry <craigbe...@mac.com>
Date: Fri Dec 9 16:58:25 2016 -0600
Remove directory depth check from configure.com.
The limit of 8 levels deep was lifted well over a decade ago and
thus does not apply to any currently-supported VMS systems.
M configure.com
commit 9d555269eb2d76e17d6ebc6a474bb240028c4db8
Author: Craig A. Berry <craigbe...@mac.com>
Date: Fri Dec 9 16:54:20 2016 -0600
Fix i64size and u64size on VMS.
These are always 8 bytes and, since VAX is no longer supported,
always defined, so don't make them conditional on -Duse64bitint.
M configure.com
-----------------------------------------------------------------------
Summary of changes:
configure.com | 31 ++-----------------------------
1 file changed, 2 insertions(+), 29 deletions(-)
diff --git a/configure.com b/configure.com
index c816620942..2e5b8106ed 100644
--- a/configure.com
+++ b/configure.com
@@ -66,8 +66,6 @@ $ dynamic_ext = ""
$ nonxs_ext = ""
$ nonxs_ext2 = ""
$ vms_default_directory_name = F$ENVIRONMENT("DEFAULT")
-$ max_allowed_dir_depth = 3 ! e.g. [A.B.PERLxxx] not [A.B.C.PERLxxx]
-$! max_allowed_dir_depth = 2 ! e.g. [A.PERLxxx] not [A.B.PERLxxx]
$!
$! Sebastian Bazley's request: close the CONFIG handle with /NOLOG
$! qualifier "just in case" (configure.com is re @ed in a bad state).
@@ -447,28 +445,6 @@ $ GOTO Beyond_manifest
$ ENDIF
$ ELSE
$! MANIFEST. has been found and we have set def'ed there.
-$! Time to bail out before it's too late, i.e. too deep.
-$! Depth check is unnecessary on Alpha VMS V7.2++ (even for ODS-2).
-$ tmp = f$extract(1,3,f$edit(f$getsyi("VERSION"),"TRIM,COLLAPSE"))
-$ IF (tmp .GES. "7.2") .AND. (F$GETSYI("HW_MODEL") .GE. 1024) THEN GOTO
Beyond_depth_check
-$! Depth check also unnecessary on ODS 5 (or later) file systems.
-$ tmp = F$INTEGER(F$GETDVI(F$ENVIRONMENT("DEFAULT"),"ACPTYPE") - "F11V")
-$ IF (tmp .GE. 5) THEN GOTO Beyond_depth_check
-$ IF (F$ELEMENT(max_allowed_dir_depth,".",F$ENVIRONMENT("DEFAULT")).nes.".")
-$ THEN
-$ TYPE SYS$INPUT:
-$ DECK
-%Config-E-VMS, ERROR:
- Sorry! It apears as though your perl build sub-directory is already too
- deep into the VMS file system. Please try moving stuff into a shallower
- directory (or altering the "max_allowed_dir_depth" parameter).
-$ EOD
-$ echo4 "ABORTING..."
-$ SET DEFAULT 'vms_default_directory_name' !be kind rewind
-$ STOP
-$ EXIT !2 !$STATUS = "%X00000002" (error)
-$ ENDIF
-$Beyond_depth_check:
$!
$ escape_extended_chars: subroutine
$ string = 'p1' ! It's the name of the symbol
@@ -5557,10 +5533,9 @@ $ IF use64bitint .OR. use64bitint .EQS. "define"
$ THEN
$ ivtype = "''i64type'"
$ uvtype = "''u64type'"
-$ ELSE
-$ i64size="undef"
-$ u64size="undef"
$ ENDIF
+$ i64size="8"
+$ u64size="8"
$!
$ doublemantbits = "52"
$ IF uselongdouble .OR. uselongdouble .EQS. "define"
@@ -5574,7 +5549,6 @@ $!
$ tmp = "''ivtype'"
$ GOSUB type_size_check
$ ivsize = tmp
-$ IF use64bitint .OR. use64bitint .EQS. "define" THEN i64size = tmp
$ IF ivtype .eqs. "long"
$ THEN longsize = tmp
$ ELSE
@@ -5586,7 +5560,6 @@ $!
$ tmp = "''uvtype'"
$ GOSUB type_size_check
$ uvsize = tmp
-$ IF use64bitint .OR. use64bitint .EQS. "define" THEN u64size = tmp
$!
$ tmp = "''i8type'"
$ GOSUB type_size_check
--
Perl5 Master Repository
