This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Backport 1034e4c80e068f8cc1c701d7936bdb84c7d74735
authorH.Merijn Brand <merijn@tux09.procura.nl>
Tue, 21 Sep 2010 12:30:23 +0000 (14:30 +0200)
committerH.Merijn Brand <merijn@tux09.procura.nl>
Tue, 21 Sep 2010 12:30:23 +0000 (14:30 +0200)
U/perl/patchlevel.U

index 59ce1cc..21e6956 100644 (file)
@@ -132,11 +132,6 @@ else
        perl_patchlevel=0
        $echo "(You do not have patchlevel.h.  Eek.)"
 fi
        perl_patchlevel=0
        $echo "(You do not have patchlevel.h.  Eek.)"
 fi
-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
 : Define a handy string here to avoid duplication in myconfig.SH and configpm.
 version_patchlevel_string="version $patchlevel subversion $subversion"
 case "$perl_patchlevel" in
 : Define a handy string here to avoid duplication in myconfig.SH and configpm.
 version_patchlevel_string="version $patchlevel subversion $subversion"
 case "$perl_patchlevel" in