This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Configure setting patchlevel broken
authorYitzchak Scott-Thoennes <sthoenna@efn.org>
Fri, 14 Oct 2005 00:33:29 +0000 (17:33 -0700)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Wed, 9 Nov 2005 09:48:29 +0000 (09:48 +0000)
Message-ID: <20051014073329.GA3236@efn.org>

p4raw-id: //depot/metaconfig@26055

U/perl/patchlevel.U

index 7d58df1..75c5a05 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=`grep ',"DEVEL[0-9][0-9]*"' $rsrc/patchlevel.h|sed 's/[^0-9]//g'`
+       perl_patchlevel=`grep 'define PERL_PATCHNUM [0-9][0-9]*' $rsrc/patchlevel.h|sed 's/[^0-9]//g'`
 else
        revision=0
        patchlevel=0