From 6eaadfb376d0ea18c6169a15fbdae3ae98e48244 Mon Sep 17 00:00:00 2001
From: zimoch <zimoch>
Date: Wed, 2 Mar 2011 09:21:46 +0000
Subject: [PATCH] timeout for "death at birth" was too short (1 instead of 10
 seconds)

---
 shellbox.tcl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/shellbox.tcl b/shellbox.tcl
index 467e468..e35ffaa 100755
--- a/shellbox.tcl
+++ b/shellbox.tcl
@@ -32,8 +32,8 @@ set timeout -1
 
 regsub -all {\$} {shellbox by Dirk Zimoch
 $Source: /cvs/G/EPICS/App/scripts/shellbox.tcl,v $
-$Revision: 1.8 $
-$Date: 2009/05/28 14:22:32 $} {} version
+$Revision: 1.9 $
+$Date: 2011/03/02 09:21:46 $} {} version
 
 proc usage {} {
     puts "usage: shellbox \[options\] port command args"
@@ -137,7 +137,7 @@ proc startProgram {} {
         forwardOutput "**** $msg (trying later) ****\n"
         while {[catch {cd $directory}]} { after 10000 }
     }
-    after 1000 set diedyoung 0
+    after 10000 set diedyoung 0
     if [catch {
         eval spawn $command
     } msg] {