X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.web-live.git;a=blobdiff_plain;f=pctb%2Fyppsc-ocr-resolver;fp=pctb%2Fyppsc-ocr-resolver;h=a733e734a28b17f247e1cf0fe770f9b37f66198f;hp=6ff436b12858d831efd182d3515f7145f870b370;hb=e8554d094c15065fea814d506be8dcdf8b58783d;hpb=b92f51387b77f876112c62d1a1afd816583e987d

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