X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=src%2Fcharconv.tcl;h=f09b82ebbe0e9707a0423d261f6945049ef270aa;hb=50910e85f05204a853e7e6975b1e3ef0adf1dbe6;hp=3086d262fbe32a8d95522cb45215045ff45ba6c4;hpb=ffa73561a78abb70d06d51cdcbf8ef3f8536a0ab;p=yaz-moved-to-github.git

diff --git a/src/charconv.tcl b/src/charconv.tcl
old mode 100755
new mode 100644
index 3086d26..f09b82e
--- a/src/charconv.tcl
+++ b/src/charconv.tcl
@@ -1,5 +1,4 @@
 #!/usr/bin/tclsh
-# $Id: charconv.tcl,v 1.21 2008-01-06 13:02:48 adam Exp $
 
 proc usage {} {
     puts {charconv.tcl: [-p prefix] [-s split] [-o ofile] file ... }
@@ -415,7 +414,7 @@ if {![info exists ifiles]} {
     usage
 }
 
-set ofilehandle [open $ofile w]
+set ofilehandle [open ${ofile}.tmp w]
 preamble_trie $ofilehandle $ifiles $ofile
 
 foreach ifile $ifiles {
@@ -423,4 +422,6 @@ foreach ifile $ifiles {
 }
 close $ofilehandle
 
+file rename -force ${ofile}.tmp ${ofile}
+