X-Git-Url: http://git.indexdata.com/?p=yaz-moved-to-github.git;a=blobdiff_plain;f=util%2Fcvs-date.tcl;h=a63ab46492f1d708187f38857ce883e2956db2f4;hp=658c3a8ea959c4af11dfe92fb7ff931a01a7be42;hb=3fa2784b75e5afa82db5f4cbc1403321894e1f27;hpb=79890eac643c81189343316b06f2d14445cbd023 diff --git a/util/cvs-date.tcl b/util/cvs-date.tcl index 658c3a8..a63ab46 100755 --- a/util/cvs-date.tcl +++ b/util/cvs-date.tcl @@ -2,7 +2,7 @@ # the next line restarts using tclsh \ exec tclsh "$0" "$@" # -# $Id: cvs-date.tcl,v 1.2 2001-05-17 14:16:15 adam Exp $ +# $Id: cvs-date.tcl,v 1.3 2001-09-11 12:43:40 adam Exp $ set sec 0 proc cvslog {} { @@ -27,6 +27,7 @@ if {$sec} { set f [open [lindex $argv 0] w] puts $f "#define YAZ_DATE ${sec}L" puts $f "#define YAZ_DATE_STR \"$sec\"" + puts $f close $f } else { puts $sec