From de436ba1cb238b90dfc23f39ecd579df2ce3bc95 Mon Sep 17 00:00:00 2001
From: zimoch <zimoch>
Date: Thu, 28 May 2009 14:22:32 +0000
Subject: [PATCH] unset LANG to prevent UTF8 problem (EPICS cannot do UTF)

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

diff --git a/shellbox.tcl b/shellbox.tcl
index c5349e1..467e468 100755
--- a/shellbox.tcl
+++ b/shellbox.tcl
@@ -24,8 +24,6 @@
 #\
 source /etc/profile
 #\
-unset LANG
-#\
 exec tclsh "$0" "$@"
 
 package req Expect
@@ -34,8 +32,8 @@ set timeout -1
 
 regsub -all {\$} {shellbox by Dirk Zimoch
 $Source: /cvs/G/EPICS/App/scripts/shellbox.tcl,v $
-$Revision: 1.7 $
-$Date: 2009/03/12 16:51:31 $} {} version
+$Revision: 1.8 $
+$Date: 2009/05/28 14:22:32 $} {} version
 
 proc usage {} {
     puts "usage: shellbox \[options\] port command args"
@@ -108,7 +106,7 @@ proc inputHandler {channel} {
         fff4fffd06 {closeChannel $channel}
         ffedfffd06 {closeChannel $channel}
         ff*        {puts "ignored $data"}
-        default    {puts $hex; send -- $data}
+        default    {send -- $data}
     }
 }