Permalink
Fetching contributors…
Cannot retrieve contributors at this time
executable file 49 lines (35 sloc) 732 Bytes
#!/usr/bin/perl
use strict;
my $numargs = @ARGV;
if ( @ARGV < 1 ) {
die "Usage: $0 version-file-path < source > dest\n";
}
my $VersionFile = shift( @ARGV );
my $Version;
if ( @ARGV ) {
die "Usage: $0 version-file-path < source > dest\n";
}
if ( ! open( VERSION, "< $VersionFile" ) ) {
die "Couldn't open $VersionFile for reading: $!\n";
}
while ( <VERSION> ) {
if ( /^#/ ) {
next;
}
chomp;
if ( !length ) {
next;
}
s/^\s*//;
s/\s*$//;
$Version = $_;
last;
}
if ( !defined( $Version ) ) {
die "No version defined in $VersionFile\n";
}
while ( <> ) {
s/(CURRENT_PROJECT_VERSION = ).+(;)/\1$Version\2/g;
s/(MODULE_VERSION = ).+(;)/\1$Version\2/g;
print;
}