diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-02-16 04:09:47 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-02-16 04:09:47 +0000 |
| commit | cceca5ed003bac658cb0392a14bb2f26d434bd78 (patch) | |
| tree | 286c2340276a7cbefe1899f0f01767791bb31ea4 /vms | |
| parent | a9fb271febef206f32659f8abc5f9029ae2f7a25 (diff) | |
| download | perl-cceca5ed003bac658cb0392a14bb2f26d434bd78.tar.gz | |
propagate PERL_VERSION everywhere, add to pod
p4raw-id: //depot/perl@2957
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/genconfig.pl | 10 | ||||
| -rw-r--r-- | vms/myconfig.com | 8 | ||||
| -rw-r--r-- | vms/subconfigure.com | 4 |
3 files changed, 16 insertions, 6 deletions
diff --git a/vms/genconfig.pl b/vms/genconfig.pl index 45f50cad5f..e500e760a2 100644 --- a/vms/genconfig.pl +++ b/vms/genconfig.pl @@ -391,8 +391,14 @@ else { warn "Can't read ${outdir}crtl.opt - skipping 'libs' & 'libc'"; } if (open(PL,"${outdir}patchlevel.h")) { while (<PL>) { - if (/^#define PATCHLEVEL\s+(\S+)/) { print OUT "PATCHLEVEL='$1'\n"; } - elsif (/^#define SUBVERSION\s+(\S+)/) { print OUT "SUBVERSION='$1'\n"; } + if (/^#define PERL_VERSION\s+(\S+)/) { + print OUT "PERL_VERSION='$1'\n"; + print OUT "PATCHLEVEL='$1'\n"; # XXX compat + } + elsif (/^#define PERL_SUBVERSION\s+(\S+)/) { + print OUT "PERL_SUBVERSION='$1'\n"; + print OUT "SUBVERSION='$1'\n"; # XXX compat + } } close PL; } diff --git a/vms/myconfig.com b/vms/myconfig.com index 6af094357c..1429f86de8 100644 --- a/vms/myconfig.com +++ b/vms/myconfig.com @@ -120,13 +120,13 @@ $ endif $ open/read RATHER_LONG_CONFIG_FILE_HANDLE 'RATHER_LONG_FILENAME_SEARCH' $read_patchlevel_h: $ read/end_of_file = patchlevel_h_Done RATHER_LONG_CONFIG_FILE_HANDLE line -$ if f$locate("PATCHLEVEL",line).ne.f$length(line) +$ if f$locate("PERL_VERSION",line).ne.f$length(line) $ then $ line = f$edit(line,"TRIM,COMPRESS") $ $PATCHLEVEL = f$element(2," ",line) $ if f$type($SUBVERSION).nes."" then goto patchlevel_h_Done $ endif -$ if f$locate("SUBVERSION",line).ne.f$length(line) +$ if f$locate("PERL_SUBVERSION",line).ne.f$length(line) $ then $ line = f$edit(line,"TRIM,COMPRESS") $ $SUBVERSION = f$element(2," ",line) @@ -138,7 +138,7 @@ $patchlevel_h_Done: $ close RATHER_LONG_CONFIG_FILE_HANDLE $ if $PATCHLEVEL.eqs."" $ then -$ echo "warning: PATCHLEVEL was not found in ''RATHER_LONG_FILENAME_TO_FIND':" +$ echo "warning: PERL_VERSION was not found in ''RATHER_LONG_FILENAME_TO_FIND':" $ endif $look_for_genconfig_pl: @@ -297,7 +297,7 @@ $ endif $spit_it_out: $! $spitshell = ECHO !<<!GROK!THIS! $ ECHO " " -$ ECHO "Summary of my ''$package' (patchlevel ''$PATCHLEVEL' subversion ''$SUBVERSION') configuration:" +$ ECHO "Summary of my ''$package' (version ''$PATCHLEVEL' subversion ''$SUBVERSION') configuration:" $ ECHO " Platform:" $ ECHO " osname=''$osname', osvers=''$osvers', archname=''$archname'" $ ECHO " uname=''$myuname'" !->d_has_uname? diff --git a/vms/subconfigure.com b/vms/subconfigure.com index 6f43c9ed9a..ab5fdfb108 100644 --- a/vms/subconfigure.com +++ b/vms/subconfigure.com @@ -2927,6 +2927,10 @@ $ WC "voidflags='" + perl_voidflags + "'" $ WC "d_eunice='" + perl_d_eunice + "'" $ WC "libs='" + perl_libs + "'" $ WC "libc='" + perl_libc + "'" +$ tempstring = "PERL_VERSION='" + "''perl_patchlevel'" + "'" +$ WC tempstring +$ tempstring = "PERL_SUBVERSION='" + "''perl_patchlevel'" + "'" +$ WC tempstring $ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'" $ WC tempstring $ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'" |