texinfo-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

texinfo/texi2html texi2html.pl


From: Patrice Dumas
Subject: texinfo/texi2html texi2html.pl
Date: Sun, 28 Feb 2010 22:27:39 +0000

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        10/02/28 22:27:39

Modified files:
        texi2html      : texi2html.pl 

Log message:
        --invisible is an obsolete option.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/texi2html/texi2html.pl?cvsroot=texinfo&r1=1.372&r2=1.373

Patches:
Index: texi2html.pl
===================================================================
RCS file: /sources/texinfo/texinfo/texi2html/texi2html.pl,v
retrieving revision 1.372
retrieving revision 1.373
diff -u -b -r1.372 -r1.373
--- texi2html.pl        23 Feb 2010 00:15:18 -0000      1.372
+++ texi2html.pl        28 Feb 2010 22:27:38 -0000      1.373
@@ -90,7 +90,7 @@
 }
 
 # CVS version:
-# $Id: texi2html.pl,v 1.372 2010/02/23 00:15:18 pertusus Exp $
+# $Id: texi2html.pl,v 1.373 2010/02/28 22:27:38 pertusus Exp $
 
 # Homepage:
 my $T2H_HOMEPAGE = "http://www.nongnu.org/texi2html/";;
@@ -2935,15 +2935,6 @@
  verbose => "expand ifplaintext sections",
 };
 
-# actually a noop, since it is not used anywhere
-$T2H_OPTIONS -> {'invisible'} =
-{
- type => '=s',
- linkage => \$Texi2HTML::Config::INVISIBLE_MARK,
- verbose => 'use text in invisble anchor',
- noHelp  => 2,
-};
-
 $T2H_OPTIONS -> {'iso'} =
 {
  type => 'iso',
@@ -3378,6 +3369,15 @@
 ##
 my $T2H_OBSOLETE_OPTIONS;
 
+# actually a noop, since it is not used anywhere
+$T2H_OBSOLETE_OPTIONS -> {'invisible'} =
+{
+ type => '=s',
+ linkage => \$Texi2HTML::Config::INVISIBLE_MARK,
+ verbose => 'use text in invisble anchor',
+ noHelp  => 2,
+};
+
 $T2H_OBSOLETE_OPTIONS -> {'expand'} =
 {
  type => '=s',
@@ -3886,10 +3886,12 @@
       exit 0;
    };
    push @types, ('version|V', 'help|h');
-   #foreach my $key (keys(%opts))
+   #foreach my $key (sort(keys(%$opts)))
    #{
-   #   print STDERR "$key, $opts{$key}\n";
+   #   #print STDERR "$key, $opts->{$key}\n";
+   #   print "$key\n";
    #}
+   #print STDERR "@types\n";
    my $result_options = Getopt::Long::GetOptions ($opts, @types);
 }
 




reply via email to

[Prev in Thread] Current Thread [Next in Thread]