VMS patches from Dan Sugalski <sugalskd@osshe.edu>

	Date: Fri, 24 Jul 1998 11:38:25 -0700
	Message-Id: <3.0.5.32.19980724113825.00a067b0@ous.edu>
	Subject: [PATCH 5.005] version number problem with VMS (Corrected)
	--
	Date: Fri, 24 Jul 1998 12:30:36 -0700
	Message-Id: <3.0.5.32.19980724123036.009f0390@ous.edu>
	Subject: [PATCH 5.005]Tweaks to README.vms
	--
	Date: Sat, 25 Jul 1998 17:56:55 -0700 (PDT)
	Message-ID: <Pine.GSO.3.96.980725175626.15740D-100000@netserve.ous.edu>
	Subject: [PATCH 5.005] Final build cleanup patch

p4raw-id: //depot/maint-5.005/perl@1658

diff --git a/README.vms b/README.vms
index 239142f..b1002e9 100644 (file)
--- a/README.vms
+++ b/README.vms
@@ -177,19 +177,29 @@ into DCLTABLES" for more info), or put the image in a directory that's in
 your DCL$PATH (if you're using VMS 6.2 or higher).
 
 4) Optionally define the command PERLDOC as 
-PERLDOC :== $PERL_ROOT:[000000]PERL PERL_ROOT:[LIB.POD]PERLDOC.COM -T
+PERLDOC :== "$PERL_ROOT:[000000]PERL PERL_ROOT:[LIB.POD]PERLDOC.COM -T"
 Note that if you wish to use most as a pager please see
 ftp://space.mit.edu/pub/davis/ for both most and slang.
 
 5) Optionally define the command PERLBUG (the Perl bug report generator) as
-PERLBUG :== $PERL_ROOT:[000000]PERL PERL_ROOT:[LIB]PERLBUG.COM"
+PERLBUG :== "$PERL_ROOT:[000000]PERL PERL_ROOT:[LIB]PERLBUG.COM"
 
 6) Optionally define the command POD2MAN (Converts POD files to nroff
 source suitable for converting to man pages. Also quiets complaints during
 module builds) as
 
 DEFINE/NOLOG POD2MAN PERL_ROOT:[LIB.POD]POD2MAN.COM
-POD2MAN :== $PERL_ROOT:[000000]PERL POD2MAN
+POD2MAN :== "$PERL_ROOT:[000000]PERL POD2MAN"
+
+7) Optionally define the command POD2TEXT (Converts POD files to text,
+which is required for perldoc -f to work properly) as
+
+DEFINE/NOLOG POD2TEXT PERL_ROOT:[LIB.POD]POD2TEXT.COM
+POD2TEXT :== "$PERL_ROOT:[000000]PERL POD2TEXT"
+
+In all these cases, if you've got PERL defined as a foreign command, you
+can replace $PERL_ROOT:[000000]PERL with ''perl'. If you've installed perl
+into DCLTABLES, replace it with just perl.
 
 * Installing Perl into DCLTABLES
 

diff --git a/vms/descrip_mms.template b/vms/descrip_mms.template
index 8648b94..f28c64a 100644 (file)
--- a/vms/descrip_mms.template
+++ b/vms/descrip_mms.template
@@ -56,7 +56,7 @@ ARCH = VMS_VAX
 OBJVAL = $(MMS$TARGET_NAME)$(O)
 .endif
 
-PERL_VERSION = 5_00$PATCHLEVEL$SUBVERSION
+PERL_VERSION = ~PV~
 
 .ifdef MALLOC
 MALLOC_O = ,malloc$(O)

diff --git a/vms/subconfigure.com b/vms/subconfigure.com
index 0923e21..d15adeb 100644 (file)
--- a/vms/subconfigure.com
+++ b/vms/subconfigure.com
@@ -373,7 +373,12 @@ $ perl_arch = "''perl_arch'-thread"
 $ perl_archname = "''perl_archname'-thread"
 $ ENDIF
 $ perl_osvers=f$edit(osvers, "TRIM")
+$ if (perl_subversion + 0).eq.0
+$ THEN
+$ LocalPerlVer = "5_" + Perl_PATCHLEVEL
+$ ELSE
 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL + perl_subversion
+$ ENDIF
 $!
 $! Some that we need to invoke the compiler for
 $ OS := "open/write SOURCECHAN []temp.c"
@@ -2455,7 +2460,7 @@ $ ENDIF
 $ WRITE_RESULT "Writing DESCRIP.MMS"
 $!set ver
 $ define/user sys$output [-]descrip.mms
-$ mcr []munchconfig [-]config.sh descrip_mms.template "''DECC_REPLACE'" "''ARCH_TYPE'" "''GNUC_REPLACE'" "''SOCKET_REPLACE'" "''THREAD_REPLACE'" "''C_Compiler_Replace'" "''MALLOC_REPLACE'" "''Thread_Live_Dangerously'"
+$ mcr []munchconfig [-]config.sh descrip_mms.template "''DECC_REPLACE'" "''ARCH_TYPE'" "''GNUC_REPLACE'" "''SOCKET_REPLACE'" "''THREAD_REPLACE'" "''C_Compiler_Replace'" "''MALLOC_REPLACE'" "''Thread_Live_Dangerously'" "PV=''LocalPerlVer'"
 $! set nover
 $!
 $! Clean up after ourselves