39 lines
715 B
Perl
39 lines
715 B
Perl
|
#!/usr/bin/env perl
|
||
|
|
|
||
|
|
# This script will bump the version number in any files listed in the below
|
||
|
|
# @files array. It can only bump versions up, and does so by use of sed.
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use Getopt::Long;
|
||
|
|
|
||
|
|
my @files = (
|
||
|
|
"../version",
|
||
|
|
"../configure.ac"
|
||
|
|
);
|
||
|
|
|
||
|
|
|
||
|
|
my ($new, $current);
|
||
|
|
|
||
|
|
open my $file, "../version" or die $!;
|
||
|
|
chomp($current = <$file>);
|
||
|
|
close $file;
|
||
|
|
|
||
|
|
sub usage {
|
||
|
|
print "Usage: bump-version.sh -n <new-version>\n";
|
||
|
|
exit 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub bump_version {
|
||
|
|
foreach my $file (@files) {
|
||
|
|
system("sed -i \"s/$current/$new/g\" $file");
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
GetOptions ("n=s" => \$new) or usage;
|
||
|
|
usage if ! $new;
|
||
|
|
die("New version ($new) is not greater than old version ($current)!") if ( $new le $current);
|
||
|
|
|
||
|
|
bump_version;
|