X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=maint%2Fbump-version;h=8aa9e53e7b7c16d202608ac5655323db689fe803;hb=5d5bb71d96bad0fb8d1d7542d94fa89122a46f12;hp=26de88b7755cf0b290bd243217db7eadcddf1b0a;hpb=786e5ba05411220ef340bd586516b97345ca1365;p=gitmo%2FRole-Tiny.git diff --git a/maint/bump-version b/maint/bump-version index 26de88b..8aa9e53 100755 --- a/maint/bump-version +++ b/maint/bump-version @@ -1,6 +1,5 @@ #!/usr/bin/env perl -use 5.010; use strict; use warnings FATAL => 'all'; use autodie; @@ -13,9 +12,10 @@ my $OLD_DECIMAL = sprintf('%i.%03i%03i', @parts); my %bump_part = (major => 0, minor => 1, bugfix => 2); -my $bump_this = - $bump_part{$ARGV[0]||'bugfix'} - // die "no idea which part to bump - $ARGV[0] means nothing to me"; +my $bump_this = $bump_part{$ARGV[0]||'bugfix'}; + +die "no idea which part to bump - $ARGV[0] means nothing to me" + unless defined($bump_this); my @new_parts = @parts; @@ -25,7 +25,7 @@ my $NEW_DECIMAL = sprintf('%i.%03i%03i', @new_parts); warn "Bumping $OLD_DECIMAL -> $NEW_DECIMAL\n"; -my $PM_FILE = 'lib/Module/Metadata.pm'; +my $PM_FILE = 'lib/Moo.pm'; my $file = do { local (@ARGV, $/) = ($PM_FILE); <> };