In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/ae209c08ded4e79538972a4ae3d5103a05678ba9?hp=c973c02eeb03288a3fd6f93372b7ab2b8a75de66>
- Log ----------------------------------------------------------------- commit ae209c08ded4e79538972a4ae3d5103a05678ba9 Author: Rafael Garcia-Suarez <[email protected]> Date: Mon Jan 19 14:01:07 2009 +0100 Mark podlators as preferably to be patched upstream M Porting/Maintainers.pl commit 9d1cda07d74b663a16a681d9c47e54a11547b60e Author: Rafael Garcia-Suarez <[email protected]> Date: Mon Jan 19 14:00:22 2009 +0100 Upgrade to podlators 2.2.2 M lib/Pod/Man.pm M lib/Pod/Text.pm M lib/Pod/t/text.t ----------------------------------------------------------------------- Summary of changes: Porting/Maintainers.pl | 2 +- lib/Pod/Man.pm | 6 +++--- lib/Pod/Text.pm | 2 +- lib/Pod/t/text.t | 21 +++++++++++++++++++-- 4 files changed, 24 insertions(+), 7 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index a9c4d2f..71c2eeb 100644 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -889,7 +889,7 @@ package Maintainers; 'MAINTAINER' => 'rra', 'FILES' => q[lib/Pod/{Man,ParseLink,Text,Text/{Color,Overstrike,Termcap}}.pm pod/pod2man.PL pod/pod2text.PL lib/Pod/t/{basic.*,{color,filehandle,man*,parselink,pod-parser,pod-spelling,pod,termcap, ... [11 chars truncated] 'CPAN' => 1, - 'UPSTREAM' => undef, + 'UPSTREAM' => 'cpan', }, 'Pod::Perldoc' => diff --git a/lib/Pod/Man.pm b/lib/Pod/Man.pm index 85e4ac8..71a4d7a 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 <[email protected]> # Substantial contributions by Sean Burke <[email protected]> # @@ -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 <[email protected]>. 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 23c8ae9..533c4cf 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 2ef9aab..c96acba 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 <[email protected]> +# Copyright 2002, 2004, 2006, 2007, 2008, 2009 Russ Allbery <[email protected]> # # 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 + +### -- Perl5 Master Repository
