X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=src%2Fcharconv.tcl;h=6ffdd650a53c2aa693b392fbfe8ec29651025d3e;hb=9527520d6b18b7c74d74ff4ad42fbf7eab73d203;hp=2d946d052675460aca3b1b406c4b20a23272fef4;hpb=30d210952d2f8b305f9f79e637a4db53dcf0873c;p=yaz-moved-to-github.git

diff --git a/src/charconv.tcl b/src/charconv.tcl
index 2d946d0..6ffdd65 100755
--- a/src/charconv.tcl
+++ b/src/charconv.tcl
@@ -2,7 +2,7 @@
 # the next line restats using tclsh \
 exec tclsh "$0" "$@"
 #
-# $Id: charconv.tcl,v 1.8 2005-03-16 21:26:37 adam Exp $
+# $Id: charconv.tcl,v 1.9 2005-11-06 01:55:06 adam Exp $
 
 proc usage {} {
     puts {charconv.tcl: [-p prefix] [-s split] [-o ofile] file ... }
@@ -249,7 +249,6 @@ proc dump_trie {ofilehandle} {
             if (!code)
             {
                 *no_read = 1;
-                code = *inp;
             }
             return code;
         }