[Texi2html-cvs] texi2html ChangeLog texi2html.pl

[Patrice Dumas]

CVSROOT:        /cvsroot/texi2html
Module name:    texi2html
Changes by:     Patrice Dumas <pertusus>        09/04/25 23:05:02

Modified files:
        .              : ChangeLog texi2html.pl 

Log message:
                Don't close out file, to let user code close it without 
erroring.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texi2html/ChangeLog?cvsroot=texi2html&r1=1.373&r2=1.374
http://cvs.savannah.gnu.org/viewcvs/texi2html/texi2html.pl?cvsroot=texi2html&r1=1.275&r2=1.276

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/texi2html/texi2html/ChangeLog,v
retrieving revision 1.373
retrieving revision 1.374
diff -u -b -r1.373 -r1.374
--- ChangeLog   25 Apr 2009 14:54:41 -0000      1.373
+++ ChangeLog   25 Apr 2009 23:05:00 -0000      1.374
@@ -9,6 +9,7 @@
        produces.
        verbatiminclude is now a $raw command argument distinct from 
        verbatim.
+       Don't close out file, to let user code close it without erroring.
 
 2009-04-23   Patrice Dumas  <address@hidden>
 

Index: texi2html.pl
===================================================================
RCS file: /cvsroot/texi2html/texi2html/texi2html.pl,v
retrieving revision 1.275
retrieving revision 1.276
diff -u -b -r1.275 -r1.276
--- texi2html.pl        25 Apr 2009 14:54:42 -0000      1.275
+++ texi2html.pl        25 Apr 2009 23:05:00 -0000      1.276
@@ -79,7 +79,7 @@
 }
 
 # CVS version:
-# $Id: texi2html.pl,v 1.275 2009/04/25 14:54:42 pertusus Exp $
+# $Id: texi2html.pl,v 1.276 2009/04/25 23:05:00 pertusus Exp $
 
 # Homepage:
 my $T2H_HOMEPAGE = "http://www.nongnu.org/texi2html/";;
@@ -4670,6 +4670,7 @@
              $filename =~ s/\s*$//;
              #$filename = substitute_line($filename, {'code_style' => 1});
              $filename = substitute_line($filename, 
"address@hidden",{'code_style' => 1, 'remove_texi' => 1});
+             $Texi2HTML::THISDOC{$macro} = $filename;
              # remove extension
              $filename =~ s/\.[^\.]*$//;
              init_with_file_name ($filename) if ($filename ne '');
@@ -7630,7 +7631,9 @@
     unless ($Texi2HTML::Config::SPLIT)
     {
         &$Texi2HTML::Config::print_page_foot($Texi2HTML::THISDOC{'FH'});
-        close_out ($Texi2HTML::THISDOC{'FH'});
+        # this leaves the possibility for external code to close the file
+        #Â without erroring out
+        #close_out ($Texi2HTML::THISDOC{'FH'});
     }
     pop_state();
 }
@@ -7864,7 +7867,7 @@
     return *FILE;
 }
 
-# FIXME not used when split 
+# FIXME not used for main out files only for special files
 sub close_out($;$)
 {
     my $FH = shift;