chiark / gitweb /
fconfigure stdin -blocking yes right at the start of required
authorIan Jackson <ian@liberator.relativity.greenend.org.uk>
Mon, 15 Jun 2009 00:33:48 +0000 (01:33 +0100)
committerIan Jackson <ian@liberator.relativity.greenend.org.uk>
Mon, 15 Jun 2009 00:33:48 +0000 (01:33 +0100)
pctb/yppsc-ocr-resolver

index 6ff436b..a733e73 100755 (executable)
@@ -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