diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-03-23 13:12:15 +0000 |
|---|---|---|
| committer | Charles Bailey <bailey@genetics.upenn.edu> | 1996-03-23 13:12:15 +0000 |
| commit | 8ae5b8029d7709b8f5f04de7386460961c8429b4 (patch) | |
| tree | cdd367671891e51122830a35e20c3cc9f7ee0fff | |
| parent | 2ab89e18c72db59b46f9facbe21a61c1a83a0397 (diff) | |
| download | perl-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
| -rw-r--r-- | vms/genconfig.pl | 8 |
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'; } } |