From 609485756e320802c0588a0c6a893f090cad0849 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Thu, 26 Apr 2018 21:11:47 +0200
Subject: [PATCH] Improve the TCL "type" procedure.

It will now also match typed uppercase characters and digits against
the echoed output.
---
 build/build.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/build/build.tcl b/build/build.tcl
index c20d326e..ac5b6bfe 100644
--- a/build/build.tcl
+++ b/build/build.tcl
@@ -14,7 +14,7 @@ proc type s {
     sleep .1
     foreach c [split $s ""] {
         send -- $c
-        if [string match {[a-z]} $c] {
+        if [string match {[a-zA-Z0-9]} $c] {
 	    expect -nocase $c
 	} else {
 	    expect "?"