From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Sat, 23 Mar 1996 13:12:15 +0000 (+0000)
Subject: perl 5.002_01: vms/genconfig.pl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8ae5b8029d7709b8f5f04de7386460961c8429b4;p=p5sagit%2Fp5-mst-13.2.git

perl 5.002_01: vms/genconfig.pl

Add SUBVERSION; osname moved to config.h; work around bug in
early versions of most
---

diff --git a/vms/genconfig.pl b/vms/genconfig.pl
index d4194bd..336c24b 100644
--- a/vms/genconfig.pl
+++ b/vms/genconfig.pl
@@ -47,7 +47,6 @@ print OUT <<EndOfIntro;
 package='perl5'
 CONFIG='true'
 cf_time='$time'
-osname='VMS'
 ld='Link'
 lddlflags='/Share'
 ranlib=''
@@ -231,16 +230,15 @@ else { warn "Can't read ${outdir}crtl.opt - skipping 'libs' & 'libc'"; }
 
 if (open(PL,"${outdir}patchlevel.h")) {
   while (<PL>) {
-    next unless /PATCHLEVEL\s+(\S+)/;
-    print OUT "PATCHLEVEL='$1'\n";
-    last;
+    if    (/^#define PATCHLEVEL\s+(\S+)/) { print OUT "PATCHLEVEL='$1'\n"; }
+    elsif (/^#define SUBVERSION\s+(\S+)/) { print OUT "SUBVERSION='$1'\n"; }
   }
   close PL;
 }
 else { warn "Can't read ${outdir}patchlevel.h - skipping 'PATCHLEVEL'"; }
 
 # simple pager support for perldoc
-if    (`most nl:` =~ /IVVERB/) {
+if    (`most` =~ /IVVERB/) {
   $pager = 'more';
   if (`more nl:` =~ /IVVERB/) { $pager = 'type/page'; }
 }