summaryrefslogtreecommitdiff
path: root/vms/genconfig.pl
diff options
context:
space:
mode:
authorPerl 5 Porters <perl5-porters@africa.nicoh.com>1996-03-23 13:12:15 +0000
committerCharles Bailey <bailey@genetics.upenn.edu>1996-03-23 13:12:15 +0000
commit8ae5b8029d7709b8f5f04de7386460961c8429b4 (patch)
treecdd367671891e51122830a35e20c3cc9f7ee0fff /vms/genconfig.pl
parent2ab89e18c72db59b46f9facbe21a61c1a83a0397 (diff)
downloadperl-8ae5b8029d7709b8f5f04de7386460961c8429b4.tar.gz
perl 5.002_01: vms/genconfig.pl
Add SUBVERSION; osname moved to config.h; work around bug in early versions of most
Diffstat (limited to 'vms/genconfig.pl')
-rw-r--r--vms/genconfig.pl8
1 files changed, 3 insertions, 5 deletions
diff --git a/vms/genconfig.pl b/vms/genconfig.pl
index d4194bd3e1..336c24b8da 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'; }
}