From: <kak...@us...> - 2008-09-09 19:06:49
|
Revision: 10463 http://amsn.svn.sourceforge.net/amsn/?rev=10463&view=rev Author: kakaroto Date: 2008-09-09 19:07:00 +0000 (Tue, 09 Sep 2008) Log Message: ----------- if we want to find this bug, we need to have it check -strict on $length Modified Paths: -------------- trunk/amsn/protocol.tcl Modified: trunk/amsn/protocol.tcl =================================================================== --- trunk/amsn/protocol.tcl 2008-09-09 18:02:41 UTC (rev 10462) +++ trunk/amsn/protocol.tcl 2008-09-09 19:07:00 UTC (rev 10463) @@ -4034,7 +4034,7 @@ #There is a bug (#2265) where $length is not numeric # report error on status_log is this occurs so we can track it down - if {![string is integer $length]} { + if {![string is integer -strict $length]} { status_log "#-----------------------#\nERROR in $self :: var \$length is \"$length\" while it should be an integer !!!\n\tCommand: $command (last element is length)\n#-----------------------#" white } This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |