[Sguil-cvs] sguil/sensor pads_agent.tcl,1.8,1.9

[Bamm V. <ba...@us...>]

Update of /cvsroot/sguil/sguil/sensor
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv5711

Modified Files:
	pads_agent.tcl 
Log Message:
Catch FIFO EOF and exit. - tks nr


Index: pads_agent.tcl
===================================================================
RCS file: /cvsroot/sguil/sguil/sensor/pads_agent.tcl,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** pads_agent.tcl	7 Sep 2007 15:07:03 -0000	1.8
--- pads_agent.tcl	19 Sep 2007 20:01:14 -0000	1.9
***************
*** 99,103 ****
      if { [eof $fifoID] || [catch {gets $fifoID data} tmpError] } {
      
!         puts "Lost FIFO"
  
      } else {
--- 99,108 ----
      if { [eof $fifoID] || [catch {gets $fifoID data} tmpError] } {
      
!         if { [info exists tmpError] } { 
!             puts "Error with FIFO: $tmpError"
!         } else { 
!             puts "Error with FIFO: Caught EOF"
!         }
!         exit
  
      } else {