Mine

variable x
variable port

fileevent $portNum readable [list ::myNS::getPort $portNum]
fconfigure $portNum -buffering line
set x 0
vwait x

proc getPort {pipe} {
	variable x
	variable port
	gets $pipe port
	puts stderr $port
	fileevent $pipe readable ""
	set x 1
}