diff options
Diffstat (limited to 'scripts/bump-version-number.pl')
| -rw-r--r-- | scripts/bump-version-number.pl | 25 |
1 files changed, 12 insertions, 13 deletions
diff --git a/scripts/bump-version-number.pl b/scripts/bump-version-number.pl index 3884d60..18b13ba 100644 --- a/scripts/bump-version-number.pl +++ b/scripts/bump-version-number.pl @@ -3,14 +3,14 @@ use strict; use warnings; -use File::Find::Object; -use IO::All; +use File::Find::Object (); +use Path::Tiny qw/ path tempdir tempfile cwd /; -my $tree = File::Find::Object->new({}, 'lib/'); +my $tree = File::Find::Object->new( {}, 'lib/' ); my $version_n = shift(@ARGV); -if (!defined($version_n)) +if ( !defined($version_n) ) { die "Specify version number as an argument! bump-version-number.pl '0.0.1'"; } @@ -19,27 +19,26 @@ sub process_file { # The filename. my ($r) = @_; + my $fh = path($r); - my @lines = io->file($r)->getlines(); + my @lines = $fh->lines_utf8; foreach (@lines) { - s#(\$VERSION = "|^Version )\d+\.\d+(?:\.\d+)?("|)#$1 . $version_n . $2#e; +s#(\$VERSION = "|^Version )\d+\.\d+(?:\.\d+)?("|)#$1 . $version_n . $2#e; } - io->file($r)->print( - @lines - ); + $fh->spew_utf8(@lines); } process_file('LibXML.pm'); -while (my $r = $tree->next()) { - if ($r =~ m{/\.(?:svn|hg|git)\z}) +while ( my $r = $tree->next() ) +{ + if ( $r =~ m{/\.(?:svn|hg|git)\z} ) { $tree->prune(); } - elsif ($r =~ m{\.pm\z}) + elsif ( $r =~ m{\.pm\z} ) { process_file($r); } } - |