Simple script to update the version of a Perl distribution.

reversion.pl

#!/usr/bin/perl -pi

BEGIN {
    die "Usage: $0 version[, new_version]\n\n" unless @ARGV;

    $old = shift;
    $new = shift || sprintf('%.2f', $old + .01);
    $dir = shift || '.';
    @ARGV =
      map { print; chomp; $_ }
      grep !( /\.(?:svn|git)/ or /Change/ or /META\.yml/ or /Makefile\.PL/ or /blib/),
      `grep -lr '\Q$old\E' $dir`;
}

s/((?:(?:\$|::|[.]|PGTAP_)VERSION\s*=?\s*|package\s+\S+)\s+'?)\Q$old\E('?)/${1}$new$2/g;
#s/(\s+version\s+)\Q$old\E$/$1$new/; # For README.
s/\b\Q$old\E$/$new/; # For README.pgtap.
__END__