From: Bruno Haible <bruno@clisp.org>
Date: Tue, 20 Aug 2024 13:30:23 +0000 (+0200)
Subject: msgfmt: Tcl: Produce the same output on native Windows as elsewhere.
X-Git-Tag: v0.23~154
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=eb3f2aaecd37928f237afc08b9deb42242490221;p=thirdparty%2Fgettext.git

msgfmt: Tcl: Produce the same output on native Windows as elsewhere.

* gettext-tools/src/write-tcl.c (msgdomain_write_tcl): Invoke fopen with 'b'
flag, so as to force Unix newlines.
---

diff --git a/gettext-tools/src/write-tcl.c b/gettext-tools/src/write-tcl.c
index fd4c29aae..f5e49b8a4 100644
--- a/gettext-tools/src/write-tcl.c
+++ b/gettext-tools/src/write-tcl.c
@@ -311,7 +311,7 @@ but the Tcl message catalog format doesn't support plural handling\n")));
 
     file_name = xconcatenated_filename (directory, frobbed_locale_name, ".msg");
 
-    output_file = fopen (file_name, "w");
+    output_file = fopen (file_name, "wb");
     if (output_file == NULL)
       {
         error (0, errno, _("error while opening \"%s\" for writing"),