[5198] Say which files are written to if VERBOSE is set.

[Patrice Dumas]

Revision: 5198
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=5198
Author:   pertusus
Date:     2013-02-23 17:59:23 +0000 (Sat, 23 Feb 2013)
Log Message:
-----------
Say which files are written to if VERBOSE is set.

Modified Paths:
--------------
    trunk/tp/Texinfo/Convert/Info.pm
    trunk/tp/Texinfo/Convert/Plaintext.pm

Modified: trunk/tp/Texinfo/Convert/Info.pm
===================================================================
--- trunk/tp/Texinfo/Convert/Info.pm    2013-02-23 13:06:21 UTC (rev 5197)
+++ trunk/tp/Texinfo/Convert/Info.pm    2013-02-23 17:59:23 UTC (rev 5198)
@@ -85,6 +85,9 @@
 
   my $fh;
   if (! $self->{'output_file'} eq '') {
+    if ($self->get_conf('VERBOSE')) {
+      print STDERR "Output file $self->{'output_file'}\n";
+    }
     $fh = $self->Texinfo::Common::open_out($self->{'output_file'});
     if (!$fh) {
       $self->document_error(sprintf($self->__("could not open %s for writing: 
%s"),
@@ -148,6 +151,10 @@
                                   $self->{'output_file'}, $close_error));
             return undef;
           }
+          if ($self->get_conf('VERBOSE')) {
+            print STDERR "Renaming first output file as ".
+                  $self->{'output_file'}.'-'.$out_file_nr."\n";
+          }
           unless (rename($self->{'output_file'}, 
                          $self->{'output_file'}.'-'.$out_file_nr)) {
             $self->document_error(sprintf($self->__("rename %s failed: %s"),
@@ -173,6 +180,10 @@
           }
         }
         $out_file_nr++;
+        if ($self->get_conf('VERBOSE')) {
+          print STDERR "New output file ".
+                $self->{'output_file'}.'-'.$out_file_nr."\n";
+        }
         $fh = $self->Texinfo::Common::open_out (
                                $self->{'output_file'}.'-'.$out_file_nr); 
         if (!$fh) {
@@ -197,6 +208,9 @@
                             $self->{'output_file'}.'-'.$out_file_nr, $!));
       return undef;
     }
+    if ($self->get_conf('VERBOSE')) {
+      print STDERR "Outputing the split manual file $self->{'output_file'}\n";
+    }
     $fh = $self->Texinfo::Common::open_out($self->{'output_file'});
     if (!$fh) {
       $self->document_error(sprintf(

Modified: trunk/tp/Texinfo/Convert/Plaintext.pm
===================================================================
--- trunk/tp/Texinfo/Convert/Plaintext.pm       2013-02-23 13:06:21 UTC (rev 
5197)
+++ trunk/tp/Texinfo/Convert/Plaintext.pm       2013-02-23 17:59:23 UTC (rev 
5198)
@@ -457,6 +457,9 @@
   
   my $fh;
   if ($outfile ne '') {
+    if ($self->get_conf('VERBOSE')) {
+      print STDERR "Output file $outfile\n";
+    }
     $fh = $self->Texinfo::Common::open_out($outfile);
     if (!$fh) {
       $self->document_error(sprintf($self->__("could not open %s for writing: 
%s"),