texinfo/tp/Texinfo Common.pm

[Patrice Dumas]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        11/11/13 23:57:38

Modified files:
        tp/Texinfo     : Common.pm 

Log message:
        Pass the filehandle together with unclosed_files.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/Texinfo/Common.pm?cvsroot=texinfo&r1=1.98&r2=1.99

Patches:
Index: Common.pm
===================================================================
RCS file: /sources/texinfo/texinfo/tp/Texinfo/Common.pm,v
retrieving revision 1.98
retrieving revision 1.99
diff -u -b -r1.98 -r1.99
--- Common.pm   13 Nov 2011 23:55:21 -0000      1.98
+++ Common.pm   13 Nov 2011 23:57:38 -0000      1.99
@@ -772,7 +772,7 @@
     binmode(STDOUT, ":encoding($encoding)") if ($encoding);
     if ($self) {
       push @{$self->{'opened_files'}}, $file;
-      $self->{'unclosed_files'}->{$file} = 1;
+      $self->{'unclosed_files'}->{$file} = \*STDOUT;
     }
     return \*STDOUT;
   }
@@ -790,7 +790,7 @@
   }
   if ($self) {
     push @{$self->{'opened_files'}}, $file;
-    $self->{'unclosed_files'}->{$file} = 1;
+    $self->{'unclosed_files'}->{$file} = $filehandle;
   }
   return $filehandle;
 }