From: Norman Walsh <ndw@nwalsh.com>
Date: Fri, 24 May 2002 16:01:57 +0000 (+0000)
Subject: Improve warning message
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=bb423b4e99ddfbda174e28c479158cf6a5728918;p=docbook-dsssl

Improve warning message
---

diff --git a/cvstools/nextversion b/cvstools/nextversion
index 68b3438dd..203e17c1c 100755
--- 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;