fconfigure stdin -blocking yes right at the start of required

diff --git a/pctb/yppsc-ocr-resolver b/pctb/yppsc-ocr-resolver
index 6ff436b12858d831efd182d3515f7145f870b370..a733e734a28b17f247e1cf0fe770f9b37f66198f 100755 (executable)
--- 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