summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2004-05-25 07:48:18 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2004-05-25 07:48:18 (GMT)
commit7af9ab5e582ce583ce1f3232785feb183337bc34 (patch)
treeff5490618869739bba27f4d1dd9102e0076cad1d
parent40784eec1443aeb03b936a7e779dfeb77faa2a3f (diff)
downloadtcl-7af9ab5e582ce583ce1f3232785feb183337bc34.zip
tcl-7af9ab5e582ce583ce1f3232785feb183337bc34.tar.gz
tcl-7af9ab5e582ce583ce1f3232785feb183337bc34.tar.bz2
More idiomatic example. [Bug 959602]
-rw-r--r--ChangeLog5
-rw-r--r--doc/bgerror.n6
2 files changed, 7 insertions, 4 deletions
diff --git a/ChangeLog b/ChangeLog
index dd8d67d..96e405a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2004-05-25 Donal K. Fellows <donal.k.fellows@man.ac.uk>
+
+ * doc/bgerror.n: Use idiomatic open flags for working with log
+ files. [Bug 959602]
+
2004-05-24 Jeff Hobbs <jeffh@ActiveState.com>
* generic/tclExecute.c (VerifyExprObjType): use GET_WIDE_OR_INT to
diff --git a/doc/bgerror.n b/doc/bgerror.n
index e5aa246..29776f4 100644
--- a/doc/bgerror.n
+++ b/doc/bgerror.n
@@ -5,7 +5,7 @@
'\" See the file "license.terms" for information on usage and redistribution
'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
'\"
-'\" RCS: @(#) $Id: bgerror.n,v 1.5 2004/04/21 19:33:17 dkf Exp $
+'\" RCS: @(#) $Id: bgerror.n,v 1.6 2004/05/25 07:48:21 dkf Exp $
'\"
.so man.macros
.TH bgerror n 7.5 Tcl "Tcl Built-In Commands"
@@ -77,14 +77,12 @@ package or other kind of library, consider avoiding \fBbgerror\fR.
The reason for this is that the application programmer may also want
to define a \fBbgerror\fR, or use other code that does and thus will
have trouble integrating your code.
-
.SH "EXAMPLE"
This \fBbgerror\fR procedure appends errors to a file, with a timestamp.
-
.CS
proc bgerror {message} {
set timestamp [clock format [clock seconds]]
- set fl [open mylog.txt a]
+ set fl [open mylog.txt {WRONLY CREAT APPEND}]
puts $fl "$timestamp: bgerror in $::argv '$message'"
close $fl
}