From: Karen Etheridge Date: Thu, 25 Sep 2014 01:41:53 +0000 (-0700) Subject: newer Distar provides the bump targets and script X-Git-Tag: v0.006017~5 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-Declare.git;a=commitdiff_plain;h=398c0bdbe46ecadcd927c4b63e0d998b2604a3b1 newer Distar provides the bump targets and script --- diff --git a/maint/Makefile.include b/maint/Makefile.include index 336847c..9747746 100644 --- a/maint/Makefile.include +++ b/maint/Makefile.include @@ -1,11 +1,2 @@ -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 deleted file mode 100755 index 21cef1b..0000000 --- a/maint/bump-version +++ /dev/null @@ -1,44 +0,0 @@ -#!/usr/bin/env perl - -use strict; -use warnings FATAL => 'all'; -use autodie; - -chomp(my $LATEST = qx(grep '^[0-9]' Changes | head -1 | awk '{print \$1}')); - -my @parts = split /\./, $LATEST; -if (@parts == 2) { - @parts[1,2] = $parts[1] =~ /(\d{1,3})(\d{1,3})/; -} - -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" - unless defined($bump_this); - -my @new_parts = @parts; - -$new_parts[$bump_this]++; - -my $NEW_DECIMAL = sprintf('%i.%03i%03i', @new_parts); - -warn "Bumping $OLD_DECIMAL -> $NEW_DECIMAL\n"; - -for my $PM_FILE (qw( - lib/Devel/Declare.pm - lib/Devel/Declare/Context/Simple.pm - lib/Devel/Declare/MethodInstaller/Simple.pm -)) { - my $file = do { local (@ARGV, $/) = ($PM_FILE); <> }; - - $file =~ s/(?<=\$VERSION = ')${\quotemeta $OLD_DECIMAL}/${NEW_DECIMAL}/ - or die "unable to bump version number in $PM_FILE"; - - open my $out, '>', $PM_FILE; - - print $out $file; -}