More idiomatic example. [Bug 959602]

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
 }