From 15cd6e14858186b0fc6748418f0c92ee5c1495ab Mon Sep 17 00:00:00 2001 From: dgp Date: Wed, 10 Sep 2003 20:27:30 +0000 Subject: * library/opt/optparse.tcl: Latest revisions caused [OptGuessType] to guess "int" instead of "string" for empty strings. Missed the required "-strict" option to [string is]. Thanks to Revar Desmera. [Bug 803968] --- ChangeLog | 7 +++++++ library/opt/optparse.tcl | 6 +++--- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 2112a00..b98ca9f 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2003-09-10 Don Porter + + * library/opt/optparse.tcl: Latest revisions caused [OptGuessType] + to guess "int" instead of "string" for empty strings. Missed the + required "-strict" option to [string is]. Thanks to Revar Desmera. + [Bug 803968] + 2003-09-08 David Gravereaux * win/tclWinLoad.c (TclpDlopen): Changed the error message for diff --git a/library/opt/optparse.tcl b/library/opt/optparse.tcl index e01b7e8..4622bde 100644 --- a/library/opt/optparse.tcl +++ b/library/opt/optparse.tcl @@ -8,7 +8,7 @@ # on it. If your code does rely on this package you # may directly incorporate this code into your application. # -# RCS: @(#) $Id: optparse.tcl,v 1.9 2003/03/19 21:57:52 dgp Exp $ +# RCS: @(#) $Id: optparse.tcl,v 1.10 2003/09/10 20:27:30 dgp Exp $ package require Tcl 8.2 # When this version number changes, update the pkgIndex.tcl file @@ -816,10 +816,10 @@ proc ::tcl::OptCheckType {arg type {typeArgs ""}} { if { $arg == "true" || $arg == "false" } { return boolean } - if {[string is integer $arg]} { + if {[string is integer -strict $arg]} { return int } - if {[string is double $arg]} { + if {[string is double -strict $arg]} { return float } return string -- cgit v0.12