diff options
Diffstat (limited to 'pod/pod2text.PL')
| -rw-r--r-- | pod/pod2text.PL | 18 |
1 files changed, 16 insertions, 2 deletions
diff --git a/pod/pod2text.PL b/pod/pod2text.PL index c5460aef30..b4965cb00f 100644 --- a/pod/pod2text.PL +++ b/pod/pod2text.PL @@ -75,7 +75,8 @@ my %options; $options{sentence} = 0; Getopt::Long::config ('bundling'); GetOptions (\%options, 'alt|a', 'color|c', 'help|h', 'indent|i=i', - 'loose|l', 'sentence|s', 'termcap|t', 'width|w=i') or exit 1; + 'loose|l', '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. @@ -103,7 +104,8 @@ pod2text - Convert POD data to formatted ASCII text =head1 SYNOPSIS -pod2text [B<-aclst>] [B<-i> I<indent>] [B<-w> I<width>] [I<input> [I<output>]] +pod2text [B<-aclst>] [B<-i> I<indent>] [B<-q> I<quotes>] [B<-w> I<width>] +[I<input> [I<output>]] pod2text B<-h> @@ -148,6 +150,18 @@ 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<-q> I<quotes>, B<--quotes>=I<quotes> + +Sets the quote marks used to surround CE<lt>> text to I<quotes>. If +I<quotes> is a single character, it is used as both the left and right +quote; if I<quotes> is two characters, the first character is used as the +left quote and the second as the right quoted; and if I<quotes> is four +characters, the first two are used as the left quote and the second two as +the right quote. + +I<quotes> may also be set to the special value C<none>, in which case no +quote marks are added around CE<lt>> text. + =item B<-s>, B<--sentence> Assume each sentence ends with two spaces and try to preserve that spacing. |