projects
/
yaz-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
4a3375f
)
Tcl command clock not used if unavailable (Tcl7.4 and earlier).
author
Adam Dickmeiss
<adam@indexdata.dk>
Thu, 10 Feb 2000 13:44:02 +0000
(13:44 +0000)
committer
Adam Dickmeiss
<adam@indexdata.dk>
Thu, 10 Feb 2000 13:44:02 +0000
(13:44 +0000)
util/yc.tcl
patch
|
blob
|
history
diff --git
a/util/yc.tcl
b/util/yc.tcl
index
e5463b7
..
b7aca35
100755
(executable)
--- a/
util/yc.tcl
+++ b/
util/yc.tcl
@@
-7,7
+7,10
@@
exec tclsh "$0" "$@"
# See the file LICENSE for details.
#
# $Log: yc.tcl,v $
# See the file LICENSE for details.
#
# $Log: yc.tcl,v $
-# Revision 1.5 2000-01-15 09:18:42 adam
+# Revision 1.6 2000-02-10 13:44:02 adam
+# Tcl command clock not used if unavailable (Tcl7.4 and earlier).
+#
+# Revision 1.5 2000/01/15 09:18:42 adam
# Bug fix: some elements where treated as OPTIONAL when they shouldn't.
#
# Revision 1.4 1999/12/16 23:36:19 adam
# Bug fix: some elements where treated as OPTIONAL when they shouldn't.
#
# Revision 1.4 1999/12/16 23:36:19 adam
@@
-1124,7
+1127,8
@@
proc asnModules {} {
set file(outp) [open $inf(h-path)/$inf(h-dir)$inf(p-file) w]
}
set file(outp) [open $inf(h-path)/$inf(h-dir)$inf(p-file) w]
}
- set md [clock format [clock seconds]]
+ set md ""
+ catch {set md [clock format [clock seconds]]}
puts $file(outc) "/* YC ${yc_version} $md */"
puts $file(outc) "/* Module-C: $inf(module) */"
puts $file(outc) "/* YC ${yc_version} $md */"
puts $file(outc) "/* Module-C: $inf(module) */"