diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-09-06 13:46:33 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-09-06 13:46:33 +0000 |
| commit | 0e850f631efa40eb8053eb5d9855baa7195e25ef (patch) | |
| tree | ebe4889086d5311476e1e687fe4a5b5b09bb3ae8 /utils | |
| parent | 72c9b87ddf5e6ebf3f889e34a140a62a01acd205 (diff) | |
| download | perl-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.PL | 4 |
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*)/; |