You are viewing a plain text version of this content. The canonical link for it is here.
Posted to rivet-dev@tcl.apache.org by da...@apache.org on 2002/11/19 00:24:12 UTC
cvs commit: tcl-rivet ChangeLog cvsversion.tcl
davidw 2002/11/18 15:24:12
Modified: . ChangeLog cvsversion.tcl
Log:
* cvsversion.tcl (main): Added catch to make sure that VERSION has
something in it and isn't.
Revision Changes Path
1.82 +5 -0 tcl-rivet/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /home/cvs/tcl-rivet/ChangeLog,v
retrieving revision 1.81
retrieving revision 1.82
diff -u -r1.81 -r1.82
--- ChangeLog 10 Nov 2002 01:14:02 -0000 1.81
+++ ChangeLog 18 Nov 2002 23:24:11 -0000 1.82
@@ -1,3 +1,8 @@
+2002-11-18 David N. Welton <da...@dedasys.com>
+
+ * cvsversion.tcl (main): Added catch to make sure that VERSION has
+ something in it and isn't.
+
2002-11-09 David N. Welton <da...@dedasys.com>
* doc/rivet.xml: Make docs reflect behavior of 'var get foobar'
1.3 +6 -1 tcl-rivet/cvsversion.tcl
Index: cvsversion.tcl
===================================================================
RCS file: /home/cvs/tcl-rivet/cvsversion.tcl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- cvsversion.tcl 12 Jul 2002 17:40:37 -0000 1.2
+++ cvsversion.tcl 18 Nov 2002 23:24:12 -0000 1.3
@@ -84,6 +84,7 @@
}
set versionfile [ open VERSION "w" ]
+ if { [catch {
while { 1 } {
puts -nonewline "Current version: $major.$minor.$point. "
puts -nonewline {Increment [M]ajor, m[I]nor, [P]oint release, or [A]bort? >>> }
@@ -112,6 +113,10 @@
}
}
puts $versionfile "$major.$minor.$point"
+ } err] } {
+ puts stderr "Problem writing VERSION file: $err"
+ puts $versionfile "$major.$minor.$point"
+ }
close $versionfile
puts "Done, version is $major.$minor.$point"
}
---------------------------------------------------------------------
To unsubscribe, e-mail: rivet-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: rivet-cvs-help@tcl.apache.org