diff options
| -rw-r--r-- | lib/Pod/Man.pm | 6 | ||||
| -rw-r--r-- | lib/Pod/Text.pm | 2 | ||||
| -rw-r--r-- | lib/Pod/t/text.t | 21 |
3 files changed, 23 insertions, 6 deletions
diff --git a/lib/Pod/Man.pm b/lib/Pod/Man.pm index 85e4ac8c01..71a4d7a7f5 100644 --- a/lib/Pod/Man.pm +++ b/lib/Pod/Man.pm @@ -1,6 +1,6 @@ # Pod::Man -- Convert POD data to formatted *roff input. # -# Copyright 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 +# Copyright 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 # Russ Allbery <rra@stanford.edu> # Substantial contributions by Sean Burke <sburke@cpan.org> # @@ -36,7 +36,7 @@ use POSIX qw(strftime); @ISA = qw(Pod::Simple); -$VERSION = '2.21'; +$VERSION = '2.22'; # Set the debugging level. If someone has inserted a debug function into this # class already, use that. Otherwise, use any Pod::Simple debug function @@ -1718,7 +1718,7 @@ mine). =head1 COPYRIGHT AND LICENSE -Copyright 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 +Copyright 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 Russ Allbery <rra@stanford.edu>. This program is free software; you may redistribute it and/or modify it diff --git a/lib/Pod/Text.pm b/lib/Pod/Text.pm index 23c8ae9860..533c4cf4fe 100644 --- a/lib/Pod/Text.pm +++ b/lib/Pod/Text.pm @@ -375,7 +375,7 @@ sub cmd_verbatim { my ($self, $attrs, $text) = @_; $self->item if defined $$self{ITEM}; return if $text =~ /^\s*$/; - $text =~ s/^(\n*)(\s*\S+)/$1 . (' ' x $$self{MARGIN}) . $2/gme; + $text =~ s/^(\n*)([ \t]*\S+)/$1 . (' ' x $$self{MARGIN}) . $2/gme; $text =~ s/\s*$/\n\n/; $self->output ($text); return ''; diff --git a/lib/Pod/t/text.t b/lib/Pod/t/text.t index 2ef9aab879..c96acba63d 100644 --- a/lib/Pod/t/text.t +++ b/lib/Pod/t/text.t @@ -2,7 +2,7 @@ # # text.t -- Additional specialized tests for Pod::Text. # -# Copyright 2002, 2004, 2006, 2007, 2008 by Russ Allbery <rra@stanford.edu> +# Copyright 2002, 2004, 2006, 2007, 2008, 2009 Russ Allbery <rra@stanford.edu> # # This program is free software; you may redistribute it and/or modify it # under the same terms as Perl itself. @@ -16,7 +16,7 @@ BEGIN { } unshift (@INC, '../blib/lib'); $| = 1; - print "1..5\n"; + print "1..6\n"; } END { @@ -128,3 +128,20 @@ As should this. Some more text. ### + +### +=pod + +text + + line1 + + line3 +### + text + + line1 + + line3 + +### |