Commit | Line | Data |
534471a1 |
1 | #!/usr/bin/env perl |
2 | |
3 | use 5.010; |
4 | use strict; |
5 | use warnings FATAL => 'all'; |
6 | use autodie; |
7 | |
8 | chomp(my $LATEST = qx(grep '^[0-9]' Changes | head -1 | awk '{print \$1}')); |
9 | |
10 | my @parts = split /\./, $LATEST; |
31ad4065 |
11 | splice(@parts, 1, 0, 0) if @parts == 2; |
534471a1 |
12 | |
13 | my $OLD_DECIMAL = sprintf('%i.%03i%03i', @parts); |
14 | |
15 | my %bump_part = (major => 0, minor => 1, bugfix => 2); |
16 | |
dd5a4b10 |
17 | my $bump_this = |
534471a1 |
18 | $bump_part{$ARGV[0]||'bugfix'} |
19 | // die "no idea which part to bump - $ARGV[0] means nothing to me"; |
20 | |
21 | my @new_parts = @parts; |
22 | |
23 | $new_parts[$bump_this]++; |
24 | |
25 | my $NEW_DECIMAL = sprintf('%i.%03i%03i', @new_parts); |
26 | |
27 | warn "Bumping $OLD_DECIMAL -> $NEW_DECIMAL\n"; |
28 | |
29 | my $PM_FILE = 'lib/Module/Metadata.pm'; |
30 | |
31 | my $file = do { local (@ARGV, $/) = ($PM_FILE); <> }; |
32 | |
33 | $file =~ s/(?<=\$VERSION = ')${\quotemeta $OLD_DECIMAL}/${NEW_DECIMAL}/; |
34 | |
35 | open my $out, '>', $PM_FILE; |
36 | |
37 | print $out $file; |