[6002] * tp/texi2any.pl: force conversion of stringyfied object

[Patrice Dumas]

Revision: 6002
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=6002
Author:   pertusus
Date:     2014-12-29 18:38:46 +0000 (Mon, 29 Dec 2014)
Log Message:
-----------
        * tp/texi2any.pl: force conversion of stringyfied object
        passed by Getopt::Long to a true string.

Modified Paths:
--------------
    trunk/ChangeLog
    trunk/tp/texi2any.pl

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2014-12-29 17:37:22 UTC (rev 6001)
+++ trunk/ChangeLog     2014-12-29 18:38:46 UTC (rev 6002)
@@ -1,3 +1,8 @@
+2014-12-29  Patrice Dumas  <address@hidden>
+
+       * tp/texi2any.pl: force conversion of stringyfied object
+       passed by Getopt::Long to a true string.
+
 2014-12-29  Gavin Smith  <address@hidden>
 
        * info/filesys.c, info/nodes.c (convert_eols): Function moved 

Modified: trunk/tp/texi2any.pl
===================================================================
--- trunk/tp/texi2any.pl        2014-12-29 17:37:22 UTC (rev 6001)
+++ trunk/tp/texi2any.pl        2014-12-29 18:38:46 UTC (rev 6002)
@@ -1002,15 +1002,15 @@
  'silent|quiet' => sub {set_from_cmdline('SILENT', $_[1]);
                          push @texi2dvi_args, '--'.$_[0];},
    
- 'plaintext' => sub {$format = set_format($_[0]);},
- 'html' => sub {$format = set_format($_[0]);},
- 'info' => sub {$format = set_format($_[0]);},
- 'docbook' => sub {$format = set_format($_[0]);},
- 'xml' => sub {$format = set_format($_[0]);},
- 'dvi' => sub {$format = set_format($_[0]);},
- 'dvipdf' => sub {$format = set_format($_[0]);},
- 'ps' => sub {$format = set_format($_[0]);},
- 'pdf' => sub {$format = set_format($_[0]);},
+ 'plaintext' => sub {$format = set_format($_[0].'');},
+ 'html' => sub {$format = set_format($_[0].'');},
+ 'info' => sub {$format = set_format($_[0].'');},
+ 'docbook' => sub {$format = set_format($_[0].'');},
+ 'xml' => sub {$format = set_format($_[0].'');},
+ 'dvi' => sub {$format = set_format($_[0].'');},
+ 'dvipdf' => sub {$format = set_format($_[0].'');},
+ 'ps' => sub {$format = set_format($_[0].'');},
+ 'pdf' => sub {$format = set_format($_[0].'');},
  'debug=i' => sub {set_from_cmdline('DEBUG', $_[1]); 
                    $parser_default_options->{'DEBUG'} = $_[1];
                    push @texi2dvi_args, '--'.$_[0]; },
@@ -1192,6 +1192,9 @@
   my $parser = Texinfo::Parser::parser($parser_options);
   my $tree = $parser->parse_texi_file($input_file_name);
 
+  #my $global_commands = $parser->global_commands_information();
+  #print STDERR join('|', keys(%$global_commands))."\n";
+
   if (!defined($tree) or $format eq 'parse') {
     handle_errors($parser, $error_count, address@hidden);
     next;