--- /src/TeX/texlive-svn/Master/texmf/scripts/texlive/tlmgr2.pl 2008-12-15 08:27:24.000000000 +0100 +++ tlmgr2.pl 2008-12-15 08:57:06.000000000 +0100 @@ -71,6 +71,7 @@ mkdirhier merge_into copy log debug)); use Cwd qw/abs_path/; use Pod::Usage; +use Pod::Select; use Getopt::Long qw(:config no_autoabbrev require_order); use strict; @@ -245,6 +246,22 @@ $localtlpdb->save; } finish(0); + } elsif ($action =~ m/^pod-test$/i) { + # piping the output of that to pod2text (-t) works very nicely + #podselect( {-output => \*STDOUT, -sections => ['ACTIONS/update.*']}, + # qw:/home/norbert/tlfoo/2008/texmf/scripts/texlive/tlmgr2.pl:); + #exit(0); + # + # that would be the perfect solution, but somehow it always creates + # a very strange output, I guess due to automatic resetting of + # verbose to 1 in Pod/Usage.pm code after selecting the sections + # I have no idea how to debug that ... maybe copy Pod/Usage.pm to + # tlpkg/TeXLive and use that instead? + pod2usage( { + -exitval => 0, + -verbose => 99, + -sections => 'ACTIONS/update.*' + }); } elsif ($action =~ m/^get-mirror$/i) { my $loc = give_ctan_mirror(); print("$loc\n"); @@ -2669,21 +2686,19 @@ =head1 ACTIONS -=over 4 - -=item B +=head2 help Gives this help information (same as C<--help>). -=item B +=head2 version Gives version information (same as C<--version>). -=item B +=head2 gui Start the graphical user interface. -=item B [I