From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 6 Sep 2007 13:46:33 +0000 (+0000)
Subject: If perl's minimal required version number is >= 5.6.0,
X-Git-Tag: accepted/trunk/20130322.191538~14683
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=0e850f631efa40eb8053eb5d9855baa7195e25ef;p=platform%2Fupstream%2Fperl.git

If perl's minimal required version number is >= 5.6.0,
we can write it 5.XXXXXX always. Fixes h2xs.t failiing
tests with 5.10.0.

p4raw-id: //depot/perl@31801
---

diff --git a/utils/h2xs.PL b/utils/h2xs.PL
index d16634c..c774d62 100644
--- a/utils/h2xs.PL
+++ b/utils/h2xs.PL
@@ -658,9 +658,7 @@ if( $opt_b ){
 	    $sub ? sprintf("%d.%03d%02d",$maj,$min,$sub) :
 	           sprintf("%d.%03d",    $maj,$min);
     } else {
-        $compat_version =
-	    $sub ? sprintf("%d.%03d%03d",$maj,$min,$sub) :
-		   sprintf("%d.%03d",    $maj,$min);
+        $compat_version = sprintf("%d.%03d%03d",$maj,$min,$sub);
     }
 } else {
     my ($maj,$min,$sub) = $compat_version =~ /(\d+)\.(\d\d\d)(\d*)/;