From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Mon, 15 Jun 2009 00:33:48 +0000 (+0100)
Subject: fconfigure stdin -blocking yes  right at the start of required
X-Git-Tag: 1.9.2~124^2~1
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-test.git;a=commitdiff_plain;h=e8554d094c15065fea814d506be8dcdf8b58783d

fconfigure stdin -blocking yes  right at the start of required
---

diff --git a/pctb/yppsc-ocr-resolver b/pctb/yppsc-ocr-resolver
index 6ff436b..a733e73 100755
--- a/pctb/yppsc-ocr-resolver
+++ b/pctb/yppsc-ocr-resolver
@@ -525,6 +525,9 @@ proc done/default {} {
 
 proc required {} {
     global glyphsdone unk_l unk_r unk_contexts
+
+    fileevent stdin readable {}
+    fconfigure stdin -blocking yes
     
     if {[gets stdin l]<0} {
 	if {[eof stdin]} { fconfigure stdin -blocking yes; exit 0 }
@@ -632,9 +635,6 @@ proc required/char {} {
     set glyphsdone [lrange $l 3 end]
     debug "GOT $l"
 
-    fileevent stdin readable {}
-    fconfigure stdin -blocking yes
-
     read_xpm stdin
 
     resize_widgets_core