This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
PERL_PATCHNUM is dead. Long live SMOKEs
authorH.Merijn Brand <h.m.brand@xs4all.nl>
Mon, 9 Jul 2007 14:18:57 +0000 (14:18 +0000)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Mon, 9 Jul 2007 14:18:57 +0000 (14:18 +0000)
p4raw-id: //depot/metaconfig@31572

U/perl/patchlevel.U

index 9c91f83..00118b8 100644 (file)
@@ -123,7 +123,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`
-       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