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 /configpm | |
parent | a9fb271febef206f32659f8abc5f9029ae2f7a25 (diff) | |
download | perl-cceca5ed003bac658cb0392a14bb2f26d434bd78.tar.gz |
propagate PERL_VERSION everywhere, add to pod
p4raw-id: //depot/perl@2957
Diffstat (limited to 'configpm')
-rwxr-xr-x | configpm | 12 |
1 files changed, 11 insertions, 1 deletions
@@ -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 |