From: Graham Knop Date: Thu, 29 Oct 2015 20:37:18 +0000 (-0400) Subject: also bump versions in bin/script X-Git-Tag: v0.003000~55 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDistar.git;a=commitdiff_plain;h=343f5d008bf77abb964175f396363250a1d9db38 also bump versions in bin/script --- diff --git a/helpers/bump-version b/helpers/bump-version index 5244750..0804e45 100755 --- a/helpers/bump-version +++ b/helpers/bump-version @@ -15,6 +15,13 @@ my ($new_decimal, $new_vstring) = bump_version($old_version, $bump); warn "Bumping $old_version -> $new_decimal\n"; +my $file_match = qr{^(?: + Makefile\.PL + |lib[/\\].*\.(?:pod|pm) + |bin[/\\].* + |script[/\\].* +)$}x; + my %files; if ($git) { if (system "git diff --quiet --cached HEAD") { @@ -23,7 +30,7 @@ if ($git) { for (`git ls-files`) { chomp; next - unless /^lib\/.*\.(?:pod|pm)$/ || /^Makefile\.PL$/; + unless /$file_match/; $files{$_} = `git show HEAD:"$_"`; } } @@ -34,13 +41,13 @@ else { next unless -f; next - unless /^lib\/.*\.(?:pod|pm)$/ || /^Makefile\.PL$/; + unless /(?:\.[\/\\])?$file_match/; open my $fh, '<', $_ or die "can't open $_: $!"; $files{$_} = do { local $/; <$fh> }; close $fh; }, - }, 'lib'); + }, '.'); } my $FILE_RE = qr{