From c3566c78531cb06c1a2c2a90c47333abadec2697 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Mon, 7 Nov 2016 08:14:53 +0100
Subject: [PATCH] More strict matching in Expect script.

---
 build/build.tcl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/build/build.tcl b/build/build.tcl
index 3319f4ac..fa8b840a 100644
--- a/build/build.tcl
+++ b/build/build.tcl
@@ -2,7 +2,11 @@ proc type s {
     sleep .2
     foreach c [split $s ""] {
         send $c
-        expect -re .
+        if [string match {[a-z]} $c] {
+	    expect -nocase $c
+	} else {
+	    expect "?"
+	}
     }
 }