Tcl Source Code

Artifact [3516516d73]
Login

Artifact 3516516d73e0ce69be98e20684909890f21311f0:

Attachment "diff.txt" to ticket [451333ffff] added by davygrvy 2001-08-16 08:53:04.
cvs diff genStubs.tcl (in directory D:\TclPro_WS\tcl\tools)
Index: genStubs.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/tools/genStubs.tcl,v
retrieving revision 1.8
diff -c -r1.8 genStubs.tcl
*** genStubs.tcl	2001/05/02 20:42:37	1.8
--- genStubs.tcl	2001/08/16 01:49:55
***************
*** 182,190 ****
      set in [open ${file} r]
      set out [open ${file}.new w]
  
-     # Always write out the file with LF termination
-     fconfigure $out -translation lf
- 
      while {![eof $in]} {
  	set line [gets $in]
  	if {[regexp {!BEGIN!} $line]} {
--- 182,187 ----