Fix binary scan for too-few bytes.

According to the Tcl manual, in this case "binary scan returns immediately
with the number of variables that were set".

(Tests added by Steve Bennett)

Signed-off-by: Steve Bennett <steveb@workware.net.au>

1 files changed, 2 insertions, 2 deletions

diff --git a/binary.tcl b/binary.tcl
index 5e9ae3f..cc9c9ea 100644
--- a/binary.tcl
+++ b/binary.tcl
@@ -125,7 +125,7 @@ proc "binary scan" {value formatString {args varName}} {
 				set n 1
 			}
 			if {$n > $rembytes} {
-				continue
+				break
 			}
 
 			set var [binary.nextarg varName]
@@ -148,7 +148,7 @@ proc "binary scan" {value formatString {args varName}} {
 				}
 			}
 			if {$n * $size > $rembytes * 8} {
-				continue
+				break
 			}
 
 			if {$type ne "int"} {