Commit | Line | Data |
840f08a4 |
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 $OLD = qx(grep '^[0-9]' Changes | head -1 | awk '{print \$1}')); |
9 | |
10 | my @parts = map { m/(\d{1,6})/g } split /\./, $OLD; |
11 | my @length = map { length } @parts; |
12 | |
13 | my %bump_part = (major => 0, minor => 1, bugfix => 1); |
14 | |
15 | my $bump_this = |
16 | $bump_part{$ARGV[0]||'bugfix'} |
17 | // die "no idea which part to bump - $ARGV[0] means nothing to me"; |
18 | |
19 | my @new_parts = @parts; |
20 | |
21 | $new_parts[$bump_this]++; |
22 | |
23 | my $NEW = sprintf( |
24 | join('.', map { '%0' . $_ . 'i' } @length), |
25 | #'%i.%03i%03i', |
26 | @new_parts); |
27 | |
28 | my @PM_FILES = ( 'lib/Catalyst/Manual.pm' ); |
29 | |
30 | foreach my $filename (@PM_FILES) { |
31 | warn "Bumping $OLD -> $NEW in $filename\n"; |
32 | |
33 | my $file = do { local (@ARGV, $/) = ($filename); <> }; |
34 | |
35 | $file =~ s/(?<=\$VERSION = ')${\quotemeta $OLD}/${NEW}/; |
36 | |
37 | open my $out, '>', $filename; |
38 | |
39 | print $out $file; |
40 | } |