From 7d849078f78a84680ee3d12ee9146dbfc4aaf54b Mon Sep 17 00:00:00 2001
From: stanton <stanton>
Date: Thu, 10 Jun 1999 04:29:01 +0000
Subject: * tools/genStubs.tcl: Changed to always write output in LF mode.

---
 tools/genStubs.tcl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl
index 16033cb..d131e28 100644
--- a/tools/genStubs.tcl
+++ b/tools/genStubs.tcl
@@ -8,7 +8,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 # 
-# RCS: @(#) $Id: genStubs.tcl,v 1.6 1999/05/25 01:00:37 stanton Exp $
+# RCS: @(#) $Id: genStubs.tcl,v 1.7 1999/06/10 04:29:01 stanton Exp $
 
 namespace eval genStubs {
     # libraryName --
@@ -180,6 +180,9 @@ proc genStubs::rewriteFile {file text} {
     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]} {
-- 
cgit v0.12