From e8554d094c15065fea814d506be8dcdf8b58783d Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Mon, 15 Jun 2009 01:33:48 +0100
Subject: [PATCH] fconfigure stdin -blocking yes  right at the start of
 required

---
 pctb/yppsc-ocr-resolver | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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
-- 
2.30.2