Improve warning message

diff --git a/cvstools/nextversion b/cvstools/nextversion
index 68b3438dd8aedf56a4b9fbf4d518a1d08c986bd1..203e17c1c4976187d00d9e1db84603a5ad71e8d0 100755 (executable)
--- a/cvstools/nextversion
+++ b/cvstools/nextversion
@@ -27,6 +27,8 @@ my $pre = $1;
 my $fvers = $2;
 my $post = $3;
 
+my $oldver = $fvers;
+
 my @cvsbad = `cvs -n update 2>&1 | grep -v ^cvs`;
 if (@cvsbad) {
     print STDERR @cvsbad;
@@ -54,7 +56,7 @@ if ($fvers =~ /^(\d+)\.(\d+)\.(\d+)$/) {
 
 $version = "$fvers" if !$version;
 
-print "About to release $version; are you sure? ";
+print "About to release $version (previous $oldver); are you sure? ";
 chop($_ = scalar(<>));
 
 die "Aborted!\n" if !/^y/i;