summaryrefslogtreecommitdiff
path: root/utils
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2007-09-06 13:46:33 +0000
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2007-09-06 13:46:33 +0000
commit0e850f631efa40eb8053eb5d9855baa7195e25ef (patch)
treeebe4889086d5311476e1e687fe4a5b5b09bb3ae8 /utils
parent72c9b87ddf5e6ebf3f889e34a140a62a01acd205 (diff)
downloadperl-0e850f631efa40eb8053eb5d9855baa7195e25ef.tar.gz
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
Diffstat (limited to 'utils')
-rw-r--r--utils/h2xs.PL4
1 files changed, 1 insertions, 3 deletions
diff --git a/utils/h2xs.PL b/utils/h2xs.PL
index d16634ce63..c774d62adf 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*)/;