This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: Cygwin status, maint and blead
authorYitzchak Scott-Thoennes <sthoenna@efn.org>
Fri, 6 Jan 2006 13:47:10 +0000 (05:47 -0800)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Wed, 11 Jan 2006 19:53:32 +0000 (19:53 +0000)
Message-ID: <20060106214710.GA592@efn.org>

p4raw-id: //depot/metaconfig@26790

U/perl/patchlevel.U

index 75c5a05..9c91f83 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 'define PERL_PATCHNUM [0-9][0-9]*' $rsrc/patchlevel.h|sed 's/[^0-9]//g'`
+       perl_patchlevel=`egrep 'define PERL_PATCHNUM [0-9][0-9]|,"MAINT[0-9][0-9]*"' $rsrc/patchlevel.h|sed 's/[^0-9]//g'`
 else
        revision=0
        patchlevel=0
@@ -134,8 +134,8 @@ else
        perl_patchlevel=0
        $echo "(You do not have patchlevel.h.  Eek.)"
 fi
-if $test -r $rsrc/.patch ; then  
-       if $test "`cat $rsrc/.patch`" -gt "$perl_patchlevel" ; then
+if $test -r $rsrc/.patch ; then
+       if $test "X$perl_patchlevel" = "X" || $test "`cat $rsrc/.patch`" -gt "$perl_patchlevel" ; then
                perl_patchlevel=`cat $rsrc/.patch`
        fi
 fi