PERL_PATCHNUM is dead. Long live SMOKEs!

Started by Steve Hay <steve.hay@uk.radan.com>
Subject: [PATCH] Re: patch level of blead/maintperl
Date: Mon, 09 Jul 2007 13:10:11 +0100
Message-ID: <469225A3.5010909@uk.radan.com>

p4raw-id: //depot/perl@31573

diff --git a/Configure b/Configure
index 57ccb4a..0d612fc 100755 (executable)
--- a/Configure
+++ b/Configure
@@ -26,7 +26,7 @@
 
 # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
 #
 
 # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
 #

-# Generated on Sat Jun 16 07:55:39 CEST 2007 [metaconfig 3.0 PL70]
+# Generated on Mon Jul  9 16:19:23 CEST 2007 [metaconfig 3.0 PL70]

 # (with additional metaconfig patches by perlbug@perl.org)
 
 cat >c1$$ <<EOF
 # (with additional metaconfig patches by perlbug@perl.org)
 
 cat >c1$$ <<EOF


@@ -4086,7 +4086,7 @@ if $test -r $rsrc/patchlevel.h;then
        api_revision=`awk '/define[     ]+PERL_API_REVISION/ {print $3}' $rsrc/patchlevel.h`
        api_version=`awk '/define[      ]+PERL_API_VERSION/ {print $3}' $rsrc/patchlevel.h`
        api_subversion=`awk '/define[   ]+PERL_API_SUBVERSION/ {print $3}' $rsrc/patchlevel.h`
        api_revision=`awk '/define[     ]+PERL_API_REVISION/ {print $3}' $rsrc/patchlevel.h`
        api_version=`awk '/define[      ]+PERL_API_VERSION/ {print $3}' $rsrc/patchlevel.h`
        api_subversion=`awk '/define[   ]+PERL_API_SUBVERSION/ {print $3}' $rsrc/patchlevel.h`

-       perl_patchlevel=`egrep 'define PERL_PATCHNUM [0-9][0-9]|,"MAINT[0-9][0-9]*"' $rsrc/patchlevel.h|sed 's/[^0-9]//g'`
+       perl_patchlevel=`egrep ',"(MAINT|SMOKE)[0-9][0-9]*"' $rsrc/patchlevel.h|tail -1|sed 's/[^0-9]//g'`

 else
        revision=0
        patchlevel=0
 else
        revision=0
        patchlevel=0