diff options
| author | dgp <dgp@users.sourceforge.net> | 2003-09-10 20:27:30 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2003-09-10 20:27:30 (GMT) |
| commit | 15cd6e14858186b0fc6748418f0c92ee5c1495ab (patch) | |
| tree | 6fd5c92508da497f1276d685909ad333dcd62e99 /library/opt/optparse.tcl | |
| parent | cd2b0a70496da83086fc5e44c7ca2ac82823eb97 (diff) | |
| download | tcl-15cd6e14858186b0fc6748418f0c92ee5c1495ab.zip tcl-15cd6e14858186b0fc6748418f0c92ee5c1495ab.tar.gz tcl-15cd6e14858186b0fc6748418f0c92ee5c1495ab.tar.bz2 | |
* 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]
Diffstat (limited to 'library/opt/optparse.tcl')
| -rw-r--r-- | library/opt/optparse.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
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 |