diff options
| author | John Peacock <jpeacock@rowman.com> | 2005-06-06 01:18:21 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-13 15:20:05 +0000 |
| commit | 9137345a080bfc646c2f9440cdb7bd90b8b37428 (patch) | |
| tree | 8569935efd39331a6e995344f060e00e2c6d6409 /utils/h2xs.PL | |
| parent | 4d5ff0dd951920bb2d1547bff31c06ec7201d40a (diff) | |
| download | perl-9137345a080bfc646c2f9440cdb7bd90b8b37428.tar.gz | |
Bring bleadperl up to version.pm
Message-ID: <42A414DD.8090504@rowman.com>
p4raw-id: //depot/perl@24823
Diffstat (limited to 'utils/h2xs.PL')
| -rw-r--r-- | utils/h2xs.PL | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/h2xs.PL b/utils/h2xs.PL index bb4f537bf5..a9ff420c25 100644 --- a/utils/h2xs.PL +++ b/utils/h2xs.PL @@ -639,10 +639,10 @@ usage if $opt_h; if( $opt_b ){ usage "You cannot use -b and -m at the same time.\n" if ($opt_b && $opt_m); - $opt_b =~ /^\d+\.\d+\.\d+/ || + $opt_b =~ /^v?(\d+)\.(\d+)\.(\d+)/ || usage "You must provide the backwards compatibility version in X.Y.Z form. " . "(i.e. 5.5.0)\n"; - my ($maj,$min,$sub) = split(/\./,$opt_b,3); + my ($maj,$min,$sub) = ($1,$2,$3); if ($maj < 5 || ($maj == 5 && $min < 6)) { $compat_version = $sub ? sprintf("%d.%03d%02d",$maj,$min,$sub) : |