Upgrade to podlators 2.2.2

diff --git a/lib/Pod/Man.pm b/lib/Pod/Man.pm
index 85e4ac8..71a4d7a 100644 (file)
--- 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 23c8ae9..533c4cf 100644 (file)
--- 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 (file)
--- 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
+
+###