texinfo/texi2html ChangeLog manage_i18n.pl.in

[Karl Berry]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Karl Berry <karl>       10/08/13 23:11:46

Modified files:
        texi2html      : ChangeLog manage_i18n.pl.in 

Log message:
        output 1; at end of translations.pl to ensure true value

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/texi2html/ChangeLog?cvsroot=texinfo&r1=1.530&r2=1.531
http://cvs.savannah.gnu.org/viewcvs/texinfo/texi2html/manage_i18n.pl.in?cvsroot=texinfo&r1=1.11&r2=1.12

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/texinfo/texinfo/texi2html/ChangeLog,v
retrieving revision 1.530
retrieving revision 1.531
diff -u -b -r1.530 -r1.531
--- ChangeLog   3 Aug 2010 00:46:26 -0000       1.530
+++ ChangeLog   13 Aug 2010 23:11:46 -0000      1.531
@@ -1,3 +1,8 @@
+2010-08-13  Karl Berry  <address@hidden>
+
+       * manage_i18n.pl (merge_i18n_files): output 1; at end of output.
+       Also close output and warn if failure.
+
 2010-08-02  Karl Berry  <address@hidden>
 
        * texi2html.pl (T2H_OBSOLETE_OPTIONS): 'quote' key names,

Index: manage_i18n.pl.in
===================================================================
RCS file: /sources/texinfo/texinfo/texi2html/manage_i18n.pl.in,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -b -r1.11 -r1.12
--- manage_i18n.pl.in   15 Jul 2010 12:26:58 -0000      1.11
+++ manage_i18n.pl.in   13 Aug 2010 23:11:46 -0000      1.12
@@ -3,7 +3,7 @@
 #
 # manage_i18n.pl: manage translation files
 #
-#    Copyright (C) 2003, 2005, 2009 Free Software Foundation, Inc.
+#    Copyright (C) 2003, 2005, 2009, 2010 Free Software Foundation, Inc.
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -220,8 +220,10 @@
             die "Error copying $translation_file to $translation_file.old\n";
         }
     }
-    #foreach my $lang ($template, @known_languages)
-    die "open $translation_file failed" unless (open (TRANSLATIONS, 
">$translation_file"));
+
+    open (TRANSLATIONS, ">$translation_file")
+      || die "open(>$translation_file) failed: $!";
+
     foreach my $lang (@languages)
     {
          my $file = locate_file("$i18n_dir/$lang.thl", $directories);
@@ -237,6 +239,8 @@
          }
          close FILE;
     }
+    print TRANSLATIONS "\n1;\n"; # ensure end with true value
+    close (TRANSLATIONS) || warn "close(>$translation_file) failed: $!";
 }
 
 sub get_language_hashes($$)