diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-28 20:35:59 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-28 20:35:59 +0000 |
| commit | 4282de365ad3986f7690c8ae5aeb465272208972 (patch) | |
| tree | 7eb0dae31c913ed4d36f7ff546a31ea82c28d75d /utils/h2xs.PL | |
| parent | 5cda700b511c4f0c6578126263fb9dc92c79641e (diff) | |
| download | perl-4282de365ad3986f7690c8ae5aeb465272208972.tar.gz | |
Bump the version numbers to five-eight-oh.
p4raw-id: //depot/perl@16843
Diffstat (limited to 'utils/h2xs.PL')
| -rw-r--r-- | utils/h2xs.PL | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/utils/h2xs.PL b/utils/h2xs.PL index 1fe427d626..df89626b91 100644 --- a/utils/h2xs.PL +++ b/utils/h2xs.PL @@ -607,12 +607,17 @@ if( $opt_b ){ . "(i.e. 5.5.0)\n"; my ($maj,$min,$sub) = split(/\./,$opt_b,3); if ($maj < 5 || ($maj == 5 && $min < 6)) { - $compat_version = sprintf("%d.%03d%02d",$maj,$min,$sub); + $compat_version = + $sub ? sprintf("%d.%03d%02d",$maj,$min,$sub) : + sprintf("%d.%03d", $maj,$min); } else { - $compat_version = sprintf("%d.%03d%03d",$maj,$min,$sub); + $compat_version = + $sub ? sprintf("%d.%03d%03d",$maj,$min,$sub) : + sprintf("%d.%03d", $maj,$min); } } else { - my ($maj,$min,$sub) = $compat_version =~ /(\d+)\.(\d\d\d)(\d\d\d?)/; + my ($maj,$min,$sub) = $compat_version =~ /(\d+)\.(\d\d\d)(\d*)/; + $sub ||= 0; warn sprintf <<'EOF', $maj,$min,$sub; Defaulting to backwards compatibility with perl %d.%d.%d If you intend this module to be compatible with earlier perl versions, please |