X-Git-Url: https://mattmccutchen.net/rsync/rsync.git/blobdiff_plain/d9126a861f014d68be61355ccf9bcd808bf7d99f..d26c7dfdb0a28a8ffc1bf5bffeb5555883c2f1e2:/packaging/release-rsync diff --git a/packaging/release-rsync b/packaging/release-rsync index d083e6ba..89b27021 100755 --- a/packaging/release-rsync +++ b/packaging/release-rsync @@ -16,9 +16,9 @@ my $dest = $ENV{HOME} . '/samba-rsync-ftp'; my $releasedir = $ENV{HOME} . '/release'; my $cvsroot = $ENV{CVSROOT} = 'samba.org:/data/cvs'; +my $cl_today = time2str('* %a %b %d %Y', time); my $ztoday = time2str('%d %b %Y', time); -my $today = $ztoday; -$today =~ s/^0//; +(my $today = $ztoday) =~ s/^0//; my $break = <) { chdir('rsync') or die $!; my($version, $lastversion); -open(IN, 'configure.in') or die $!; +open(IN, '<', 'configure.in') or die $!; while () { if (/^RSYNC_VERSION=(.*)/) { $version = $lastversion = $1; @@ -76,7 +76,13 @@ while () { } close IN; -$lastversion =~ s/(\d+)cvs$/ $1 - 1 /e; +if ($lastversion =~ /cvs$/) { + open(IN, '<', 'OLDNEWS') or die $!; + $_ = ; + close IN; + ($lastversion) = /(\d+\.\d+\.\d+)/; +} + $version =~ s/cvs/pre1/ || $version =~ s/pre(\d+)/ 'pre' . ($1 + 1) /e; print $break, "\nPlease enter the version number of this release: [$version] "; @@ -130,8 +136,9 @@ print "\n", $break, <