texinfo/tp texi2any.pl

[Patrice Dumas]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        12/04/23 20:36:22

Modified files:
        tp             : texi2any.pl 

Log message:
        Warn when --Xopt is given but texi2dvi si not called (Karl idea).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/texi2any.pl?cvsroot=texinfo&r1=1.127&r2=1.128

Patches:
Index: texi2any.pl
===================================================================
RCS file: /sources/texinfo/texinfo/tp/texi2any.pl,v
retrieving revision 1.127
retrieving revision 1.128
diff -u -b -r1.127 -r1.128
--- texi2any.pl 22 Apr 2012 00:13:15 -0000      1.127
+++ texi2any.pl 23 Apr 2012 20:36:22 -0000      1.128
@@ -659,6 +659,7 @@
   return $makeinfo_help;
 }
 
+my $Xopt_arg_nr = 0;
 my $latex2html_file = 'latex2html.pm';
 
 my $result_options = Getopt::Long::GetOptions (
@@ -791,7 +792,7 @@
  'commands-in-node-names' => sub { ;},
  'output-indent=i' => sub { ;},
  'reference-limit=i' => sub { ;},
- 'Xopt=s' => address@hidden,
+ 'Xopt=s' => sub {push @texi2dvi_args, $_[1]; $Xopt_arg_nr++},
  'silent|quiet' => sub {set_from_cmdline('SILENT', $_[1]);
                          push @texi2dvi_args, '--'.$_[0];},
    
@@ -909,7 +910,10 @@
     die sprintf(__('when generating %s, only one input FILE may be specified 
with -o'),
                 $format);
   }
+} elsif($Xopt_arg_nr) {
+  document_warn (__('--Xopt option without printed output')); 
 }
+
 my %tree_transformations;
 if (get_conf('TREE_TRANSFORMATIONS')) {
   my @transformations = split /,/, get_conf('TREE_TRANSFORMATIONS');