better bump-version, from Import::Into

diff --git a/maint/bump-version b/maint/bump-version
index 56616e7..fbb39c8 100755 (executable)
--- a/maint/bump-version
+++ b/maint/bump-version
@@ -7,10 +7,10 @@ use autodie;
 
 chomp(my $LATEST = qx(grep '^[0-9]' Changes | head -1 | awk '{print \$1}'));
 
-my @parts = split /\./, $LATEST;
+my @parts = map { m/(\d{1,3})/g } split /\./, $LATEST;
 push @parts, 0, 0;
 
-my $OLD_DECIMAL = sprintf('%i.%03i%03i', @parts);
+my $OLD_DECIMAL = sprintf('%i.%03i%03i', @parts[0..2]);
 
 my %bump_part = (major => 0, minor => 1, bugfix => 2);
 
@@ -22,7 +22,7 @@ my @new_parts = @parts;
 
 $new_parts[$bump_this]++;
 
-my $NEW_DECIMAL = sprintf('%i.%03i%03i', @new_parts);
+my $NEW_DECIMAL = sprintf('%i.%03i%03i', @new_parts[0..2]);
 
 my @PM_FILES = ( 'lib/strictures.pm' );