summaryrefslogtreecommitdiff
path: root/configpm
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-02-16 04:09:47 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-02-16 04:09:47 +0000
commitcceca5ed003bac658cb0392a14bb2f26d434bd78 (patch)
tree286c2340276a7cbefe1899f0f01767791bb31ea4 /configpm
parenta9fb271febef206f32659f8abc5f9029ae2f7a25 (diff)
downloadperl-cceca5ed003bac658cb0392a14bb2f26d434bd78.tar.gz
propagate PERL_VERSION everywhere, add to pod
p4raw-id: //depot/perl@2957
Diffstat (limited to 'configpm')
-rwxr-xr-xconfigpm12
1 files changed, 11 insertions, 1 deletions
diff --git a/configpm b/configpm
index ba07f14a87..9cf8103b80 100755
--- a/configpm
+++ b/configpm
@@ -44,8 +44,18 @@ $in_v = 0;
while (<>) {
next if m:^#!/bin/sh:;
- # Catch CONFIG=true and PATCHLEVEL=n line from Configure.
+ # Catch CONFIG=true and PERL_VERSION=n line from Configure.
s/^(\w+)=(true|\d+)\s*$/$1='$2'\n/;
+ my ($k,$v) = ($1,$2);
+ # grandfather PATCHLEVEL and SUBVERSION
+ if ($k) {
+ if ($k eq 'PERL_VERSION') {
+ push @v_others, "PATCHLEVEL='$v'\n";
+ }
+ elsif ($k eq 'PERL_SUBVERSION') {
+ push @v_others, "SUBVERSION='$v'\n";
+ }
+ }
# We can delimit things in config.sh with either ' or ".
unless ($in_v or m/^(\w+)=(['"])(.*\n)/){
push(@non_v, "#$_"); # not a name='value' line