version 1.1.1.2, 2013/10/14 07:51:14
|
version 1.1.1.3, 2016/11/01 09:54:32
|
Line 67 check_git_state($master_branch, 1, 1);
|
Line 67 check_git_state($master_branch, 1, 1);
|
my $confversion; |
my $confversion; |
open(IN, '<', 'configure.ac') or die $!; |
open(IN, '<', 'configure.ac') or die $!; |
while (<IN>) { |
while (<IN>) { |
if (/^RSYNC_VERSION=(.*)/) { | if (/^AC_INIT\(\[rsync\],\s*\[(\d.+?)\]/) { |
$confversion = $1; |
$confversion = $1; |
last; |
last; |
} |
} |
} |
} |
close IN; |
close IN; |
die "Unable to find RSYNC_VERSION in configure.ac\n" unless defined $confversion; | die "Unable to find AC_INIT with version in configure.ac\n" unless defined $confversion; |
|
|
open(IN, '<', 'OLDNEWS') or die $!; |
open(IN, '<', 'OLDNEWS') or die $!; |
$_ = <IN>; |
$_ = <IN>; |
Line 202 foreach my $fn (@tweak_files) {
|
Line 202 foreach my $fn (@tweak_files) {
|
undef $/; $_ = <IN>; $/ = "\n"; |
undef $/; $_ = <IN>; $/ = "\n"; |
close IN; |
close IN; |
if ($fn =~ /configure/) { |
if ($fn =~ /configure/) { |
s/^RSYNC_VERSION=.*/RSYNC_VERSION=$version/m | s/^(AC_INIT\(\[rsync\],\s*\[)\d.+?(\])/$1$version$2/m |
or die "Unable to update RSYNC_VERSION in $fn\n"; | or die "Unable to update AC_INIT with version in $fn\n"; |
} elsif ($fn =~ /\.spec/) { |
} elsif ($fn =~ /\.spec/) { |
while (my($str, $val) = each %specvars) { |
while (my($str, $val) = each %specvars) { |
s/^\Q$str\E .*/$str $val/m |
s/^\Q$str\E .*/$str $val/m |