Skip to content

Commit 07758e3

Browse files
committed
Remove sharedperl option on VMS
This was intended to allow Perl for multiple architectures to reside in a single installation directory tree, primarily for mixed-architecture clusters. Disk space is a lot cheaper than it was when this first came along, and architecture-specific library directories have since become a thing, so there might be a better way to do this now if it's even still desireable. It's unclear whether the feature has been used in recent decades -- it certainly hasn't been tested recently. Removing it simplifies the build and is something that doesn't have to get fixed whenever a port to a new architecture comes along.
1 parent 8aca9ca commit 07758e3

File tree

1 file changed

+5
-46
lines changed

1 file changed

+5
-46
lines changed

configure.com

Lines changed: 5 additions & 46 deletions
Original file line numberDiff line numberDiff line change
@@ -2371,22 +2371,6 @@ $!
23712371
$ bool_dflt = "n"
23722372
$ vms_prefix = "perl_root"
23732373
$ vms_prefixup = F$EDIT(vms_prefix,"UPCASE")
2374-
$ rp = "Will you be sharing your ''vms_prefixup' with ''otherarch'? [''bool_dflt'] "
2375-
$ GOSUB myread
2376-
$ IF .NOT. ans
2377-
$ THEN
2378-
$ sharedperl = "N"
2379-
$ ELSE
2380-
$ sharedperl = "Y"
2381-
$ IF (F$ELEMENT(0, "-", archname).EQS."VMS_AXP")
2382-
$ THEN
2383-
$ macros = macros + """AXE=1"","
2384-
$ ENDIF
2385-
$ IF (F$ELEMENT(0, "-", archname).EQS."VMS_IA64")
2386-
$ THEN
2387-
$ macros = macros + """IXE=1"","
2388-
$ ENDIF
2389-
$ ENDIF
23902374
$!
23912375
$!: is AFS running? !sfn
23922376
$!: decide how portable to be. Allow command line overrides. !sfn
@@ -3246,29 +3230,11 @@ $ if mymalloc then usemymalloc = "define"
32463230
$!
32473231
$ perl_cc=Mcc
32483232
$!
3249-
$ IF (sharedperl .AND. F$ELEMENT(0, "-", archname) .EQS. "VMS_AXP")
3250-
$ THEN
3251-
$ obj_ext=".abj"
3252-
$ so="axe"
3253-
$ dlext="axe"
3254-
$ exe_ext=".axe"
3255-
$ lib_ext=".alb"
3256-
$ ELSE
3257-
$ IF (sharedperl .AND. F$ELEMENT(0, "-", archname) .EQS. "VMS_IA64")
3258-
$ THEN
3259-
$ obj_ext=".ibj"
3260-
$ so="ixe"
3261-
$ dlext="ixe"
3262-
$ exe_ext=".ixe"
3263-
$ lib_ext=".ilb"
3264-
$ ELSE
3265-
$ obj_ext=".obj"
3266-
$ so="exe"
3267-
$ dlext="exe"
3268-
$ exe_ext=".exe"
3269-
$ lib_ext=".olb"
3270-
$ ENDIF
3271-
$ ENDIF
3233+
$ obj_ext=".obj"
3234+
$ so="exe"
3235+
$ dlext="exe"
3236+
$ exe_ext=".exe"
3237+
$ lib_ext=".olb"
32723238
$ dlobj="dl_vms''obj_ext'"
32733239
$!
32743240
$ cppstdin="''perl_cc'/noobj/comments=as_is/preprocess=sys$output sys$input"
@@ -7525,8 +7491,6 @@ $ echo ""
75257491
$ echo4 "The perl.cld file is now being written..."
75267492
$ OPEN/WRITE CONFIG 'file_2_find'
75277493
$ ext = ".exe"
7528-
$ IF (sharedperl .AND. F$ELEMENT(0, "-", archname) .EQS. "VMS_AXP") THEN ext := .AXE
7529-
$ IF (sharedperl .AND. F$ELEMENT(0, "-", archname) .EQS. "VMS_IA64") THEN ext := .IXE
75307494
$ IF (use_vmsdebug_perl)
75317495
$ THEN
75327496
$ WRITE CONFIG "define verb dbgperl"
@@ -7582,11 +7546,6 @@ $ WRITE CONFIG "$ root_spec = P1"
75827546
$ WRITE CONFIG "$ endif"
75837547
$ WRITE CONFIG "$ define/translation=concealed ''vms_prefix' 'root_spec'"
75847548
$ WRITE CONFIG "$ ext = "".exe"""
7585-
$ IF sharedperl
7586-
$ THEN
7587-
$ WRITE CONFIG "$ if f$getsyi(""ARCH_TYPE"") .eq. 2 then ext = "".AXE"""
7588-
$ WRITE CONFIG "$ if f$getsyi(""ARCH_TYPE"") .eq. 3 then ext = "".IXE"""
7589-
$ ENDIF
75907549
$ IF (perl_symbol)
75917550
$ THEN
75927551
$ perl_setup_perl = "'" + "'perl'" ! triple quoted foreign command symbol

0 commit comments

Comments
 (0)