X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=configpm;h=9cf8103b80a91d12e4ef274ade71b1bf3a66ebe9;hb=dd99ebda2fe680296a282a6804ed647eefc7f935;hp=ba07f14a878b9187b036c86fbbad89726cce86d4;hpb=435ec615985f8f6df0ee71931461d13d7cec3ccd;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/configpm b/configpm
index ba07f14..9cf8103 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