From: Gurusamy Sarathy Date: Sun, 26 Jul 1998 02:23:46 +0000 (+0000) Subject: VMS patches from Dan Sugalski X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8598841737770b8824e0b5a63b6989607c8687c9;p=p5sagit%2Fp5-mst-13.2.git VMS patches from Dan Sugalski 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: 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 --- 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 --- 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 --- 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