X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pod%2Fpod2text.PL;h=0486e2da0afce4824c17946da49790629cfaa084;hb=c9e30dd8153632a4205f5780cc54d922f26feb15;hp=e038021c70263d7b6e7f2f022a0f2a2ac314bb5b;hpb=59548ecaeaf22737b5c8a75235f5e142c16de75d;p=p5sagit%2Fp5-mst-13.2.git diff --git a/pod/pod2text.PL b/pod/pod2text.PL index e038021..0486e2d 100644 --- a/pod/pod2text.PL +++ b/pod/pod2text.PL @@ -78,8 +78,8 @@ my %options; $options{sentence} = 0; Getopt::Long::config ('bundling'); GetOptions (\%options, 'alt|a', 'code', 'color|c', 'help|h', 'indent|i=i', - 'loose|l', 'overstrike|o', 'quotes|q=s', 'sentence|s', - 'termcap|t', 'width|w=i') or exit 1; + 'loose|l', 'margin|left-margin|m=i', '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. @@ -162,6 +162,12 @@ 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<-m> I, B<--left-margin>=I, B<--margin>=I + +The width of the left margin in spaces. Defaults to 0. This is the margin +for all text, including headings, not the amount by which regular text is +indented; for the latter, see B<-i> option. + =item B<-o>, B<--overstrike> Format the output with overstruck printing. Bold text is rendered as @@ -247,8 +253,12 @@ current terminal device. =head1 SEE ALSO -L, L, -L, L +L, L, L, +L, L + +The current version of this script is always available from its web site at +L. It is also part of the +Perl core distribution as of 5.6.0. =head1 AUTHOR