Change 31801: If perl's minimal required version number is >= 5.6.0,

[Rafael Garcia-Suarez]

Change 31801 by [EMAIL PROTECTED] on 2007/09/06 13:46:33

        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.

Affected files ...

... //depot/perl/utils/h2xs.PL#102 edit

Differences ...

==== //depot/perl/utils/h2xs.PL#102 (text) ====
Index: perl/utils/h2xs.PL
--- perl/utils/h2xs.PL#101~31175~       2007-05-09 00:57:50.000000000 -0700
+++ perl/utils/h2xs.PL  2007-09-06 06:46:33.000000000 -0700
@@ -658,9 +658,7 @@
            $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*)/;
End of Patch.