summaryrefslogtreecommitdiff
path: root/pod/pod2text.PL
diff options
context:
space:
mode:
authorRuss Allbery <rra@stanford.edu>2000-12-24 21:09:30 -0800
committerJarkko Hietaniemi <jhi@iki.fi>2000-12-29 18:27:30 +0000
commit738498554754dd90699c8e9143242cd60b1e5e37 (patch)
treeae368857292fa491b10234e1045d06cd644f3215 /pod/pod2text.PL
parent326fd4b6c63d624f86be55b75291c6fa7368b680 (diff)
downloadperl-738498554754dd90699c8e9143242cd60b1e5e37.tar.gz
podlators 1.06 released
Message-ID: <ylwvcosl4l.fsf@windlord.stanford.edu> p4raw-id: //depot/perl@8259
Diffstat (limited to 'pod/pod2text.PL')
-rw-r--r--pod/pod2text.PL18
1 files changed, 14 insertions, 4 deletions
diff --git a/pod/pod2text.PL b/pod/pod2text.PL
index b4965cb00f..7b5727decc 100644
--- a/pod/pod2text.PL
+++ b/pod/pod2text.PL
@@ -75,8 +75,8 @@ my %options;
$options{sentence} = 0;
Getopt::Long::config ('bundling');
GetOptions (\%options, 'alt|a', 'color|c', 'help|h', 'indent|i=i',
- 'loose|l', 'quotes|q=s', 'sentence|s', 'termcap|t',
- 'width|w=i') or exit 1;
+ 'loose|l', 'overstrike|o', 'quotes|q=s', 'sentence|s',
+ 'termcap|t', 'width|w=i') or exit 1;
pod2usage (1) if $options{help};
# Figure out what formatter we're going to use. -c overrides -t.
@@ -89,8 +89,11 @@ if ($options{color}) {
} elsif ($options{termcap}) {
$formatter = 'Pod::Text::Termcap';
require Pod::Text::Termcap;
+} elsif ($options{overstrike}) {
+ $formatter = 'Pod::Text::Overstrike';
+ require Pod::Text::Overstrike;
}
-delete @options{'color', 'termcap'};
+delete @options{'color', 'termcap', 'overstrike'};
# Initialize and run the formatter.
my $parser = $formatter->new (%options);
@@ -104,7 +107,7 @@ pod2text - Convert POD data to formatted ASCII text
=head1 SYNOPSIS
-pod2text [B<-aclst>] [B<-i> I<indent>] [B<-q> I<quotes>] [B<-w> I<width>]
+pod2text [B<-aclost>] [B<-i> I<indent>] [B<-q> I<quotes>] [B<-w> I<width>]
[I<input> [I<output>]]
pod2text B<-h>
@@ -150,6 +153,13 @@ printed after C<=head1>, although one is still printed after C<=head2>,
because this is the expected formatting for manual pages; if you're
formatting arbitrary text documents, using this option is recommended.
+=item B<-o>, B<--overstrike>
+
+Format the output with overstruck printing. Bold text is rendered as
+character, backspace, character. Italics and file names are rendered as
+underscore, backspace, character. Many pagers, such as B<less>, know how
+to convert this to bold or underlined text.
+
=item B<-q> I<quotes>, B<--quotes>=I<quotes>
Sets the quote marks used to surround CE<lt>> text to I<quotes>. If