From: Karen Etheridge <ether@cpan.org>
Date: Sat, 9 Aug 2014 04:55:07 +0000 (-0700)
Subject: better bump-version, from Import::Into
X-Git-Tag: v1.005005~4
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d4cd8193e6e12c5e4ba14989943022fa3e2afda3;p=p5sagit%2Fstrictures.git

better bump-version, from Import::Into
---

diff --git a/maint/bump-version b/maint/bump-version
index 56616e7..fbb39c8 100755
--- 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' );