From 2e4a3d17b45e168c565a25f694fd73d3079ed8b0 Mon Sep 17 00:00:00 2001 From: Wayne Davison Date: Wed, 26 Sep 2007 14:57:52 +0000 Subject: [PATCH] Some improvements and fixes for the upcoming release. --- packaging/release-rsync | 23 ++++++++++++++++++----- 1 file changed, 18 insertions(+), 5 deletions(-) diff --git a/packaging/release-rsync b/packaging/release-rsync index d083e6ba..9538feac 100755 --- a/packaging/release-rsync +++ b/packaging/release-rsync @@ -76,7 +76,17 @@ while () { } close IN; -$lastversion =~ s/(\d+)cvs$/ $1 - 1 /e; +if (my($major, $minor, $rel) = $lastversion =~ /(\d+)\.(\d+)\.(\d+)cvs$/) { + if (--$rel < 0) { + $rel = 9; + if (--$minor < 0) { + $minor = 6; + $major--; + } + } + $lastversion = "$major.$minor.$rel"; +} + $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 +140,9 @@ print "\n", $break, <