You are viewing a plain text version of this content. The canonical link for it is here.
Posted to site-cvs@tcl.apache.org by da...@apache.org on 2003/06/01 17:59:48 UTC
cvs commit: tcl-site/presentations/tcl common.tcl
davidw 2003/06/01 08:59:48
Modified: presentations/apache-tcl common.tcl
presentations/dtcl common.tcl
presentations/tcl common.tcl
Log:
Fixed stupid error on my part - I wasn't checking input for
correctness.
Revision Changes Path
1.5 +3 -0 tcl-site/presentations/apache-tcl/common.tcl
Index: common.tcl
===================================================================
RCS file: /home/cvs/tcl-site/presentations/apache-tcl/common.tcl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- common.tcl 28 May 2003 09:17:22 -0000 1.4
+++ common.tcl 1 Jun 2003 15:59:48 -0000 1.5
@@ -35,6 +35,9 @@
set ::urls [getorder]
if { [var exists index] } {
set ::index [var get index]
+ if { ! [string is integer $::index] } {
+ error "Index must be a number!"
+ }
} else {
set ::index 0
}
1.4 +3 -0 tcl-site/presentations/dtcl/common.tcl
Index: common.tcl
===================================================================
RCS file: /home/cvs/tcl-site/presentations/dtcl/common.tcl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- common.tcl 28 May 2003 09:17:24 -0000 1.3
+++ common.tcl 1 Jun 2003 15:59:48 -0000 1.4
@@ -24,6 +24,9 @@
set ::urls [getorder]
if { [var exists index] } {
set ::index [var get index]
+ if { ! [string is integer $::index] } {
+ error "Index must be a number!"
+ }
} else {
set ::index 0
}
1.4 +3 -0 tcl-site/presentations/tcl/common.tcl
Index: common.tcl
===================================================================
RCS file: /home/cvs/tcl-site/presentations/tcl/common.tcl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- common.tcl 28 May 2003 09:17:26 -0000 1.3
+++ common.tcl 1 Jun 2003 15:59:48 -0000 1.4
@@ -24,6 +24,9 @@
set ::urls [getorder]
if { [var exists index] } {
set ::index [var get index]
+ if { ! [string is integer $::index] } {
+ error "Index must be a number!"
+ }
} else {
set ::index 0
}
---------------------------------------------------------------------
To unsubscribe, e-mail: site-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: site-cvs-help@tcl.apache.org