From 59e530082d8deadca435d4cbbe27dce26d38ed2f Mon Sep 17 00:00:00 2001 From: Jeff Hobbs Date: Thu, 13 Dec 2001 00:53:29 +0000 Subject: [PATCH] * tkcon.tcl (EvalSocketEvent): changed EvalSocketClosed to only occur after gets, then eof check. (Gerold Jury) --- ChangeLog | 5 +++++ tkcon.tcl | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index da62ff0..6e1245d 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2001-12-12 Jeff Hobbs + + * tkcon.tcl (EvalSocketEvent): changed EvalSocketClosed to only + occur after gets, then eof check. (Gerold Jury) + 2001-11-14 Jeff Hobbs * tkcon.tcl: added catch around file type call diff --git a/tkcon.tcl b/tkcon.tcl index dd3ba36..c406f68 100755 --- a/tkcon.tcl +++ b/tkcon.tcl @@ -867,8 +867,10 @@ proc ::tkcon::EvalSocket cmd { proc ::tkcon::EvalSocketEvent {} { variable PRIV - if {[eof $PRIV(app)] || ([gets $PRIV(app) line] == -1)} { - EvalSocketClosed + if {[gets $PRIV(app) line] == -1} { + if {[eof $PRIV(app)]} { + EvalSocketClosed + } return } puts $line -- 2.23.0