From: Karen Etheridge Date: Sat, 26 Jul 2014 17:47:16 +0000 (-0700) Subject: more utility files - copied from Import-Into dist X-Git-Tag: v1.002003~5 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=905e3e7873d0a08d6af5400cb16f9b5c67271241;p=p5sagit%2FJSON-MaybeXS.git more utility files - copied from Import-Into dist --- diff --git a/maint/Makefile.include b/maint/Makefile.include new file mode 100644 index 0000000..336847c --- /dev/null +++ b/maint/Makefile.include @@ -0,0 +1,11 @@ +bump: + maint/bump-version + rm Makefile +bumpminor: + maint/bump-version minor + rm Makefile +bumpmajor: + maint/bump-version major + rm Makefile +upload: $(DISTVNAME).tar$(SUFFIX) + cpan-upload $< diff --git a/maint/bump-version b/maint/bump-version new file mode 100755 index 0000000..ae1ba00 --- /dev/null +++ b/maint/bump-version @@ -0,0 +1,39 @@ +#!/usr/bin/env perl + +use 5.010; +use strict; +use warnings FATAL => 'all'; +use autodie; + +chomp(my $LATEST = qx(grep '^[0-9]' Changes | head -1 | awk '{print \$1}')); + +my @parts = map { m/(\d{1,3})/g } split /\./, $LATEST; +push @parts, 0, 0; + +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 @new_parts = @parts; + +$new_parts[$bump_this]++; + +my $NEW_DECIMAL = sprintf('%i.%03i%03i', @new_parts); + +my @PM_FILES = ( 'lib/JSON/MaybeXS.pm' ); + +foreach my $filename (@PM_FILES) { + warn "Bumping $OLD_DECIMAL -> $NEW_DECIMAL in $filename\n"; + + my $file = do { local (@ARGV, $/) = ($filename); <> }; + + $file =~ s/(?<=\$VERSION = ')${\quotemeta $OLD_DECIMAL}/${NEW_DECIMAL}/; + + open my $out, '>', $filename; + + print $out $file; +}