Upgrade to Pod-Parser-1.37.

Two local changes remain:

part of the change to t/pod/pod2usage2.t in
http://perl5.git.perl.org/perl.git/commitdiff/767c16a

part of the change to lib/Pod/t/contains_pod.t in
http://perl5.git.perl.org/perl.git/commitdiff/fb59f97

4 files changed, 11 insertions, 12 deletions

diff --git a/lib/Pod/Checker.pm b/lib/Pod/Checker.pm
index deac5ded2b..a2305423b2 100644
--- a/lib/Pod/Checker.pm
+++ b/lib/Pod/Checker.pm
@@ -11,7 +11,7 @@ package Pod::Checker;
 use strict;
 
 use vars qw($VERSION @ISA @EXPORT %VALID_COMMANDS %VALID_SEQUENCES);
-$VERSION = '1.44_01';  ## Current version of this package
+$VERSION = '1.45';  ## Current version of this package
 require  5.005;    ## requires this Perl version or later
 
 use Pod::ParseUtils; ## for hyperlinks and lists
diff --git a/lib/Pod/Parser.pm b/lib/Pod/Parser.pm
index 5e261a6b6a..c807f3fbad 100644
--- a/lib/Pod/Parser.pm
+++ b/lib/Pod/Parser.pm
@@ -12,7 +12,7 @@ use strict;
 
 ## These "variables" are used as local "glob aliases" for performance
 use vars qw($VERSION @ISA %myData %myOpts @input_stack);
-$VERSION = '1.36_01';  ## Current version of this package
+$VERSION = '1.37';  ## Current version of this package
 require  5.005;    ## requires this Perl version or later
 
 #############################################################################
@@ -996,7 +996,7 @@ sub parse_paragraph {
                      " in paragraph at line $line in file $myData{_INFILE}\n";
         (ref $errorsub) and &{$errorsub}($errmsg)
             or (defined $errorsub) and $self->$errorsub($errmsg)
-                or  warn($errmsg);
+                or  carp($errmsg);
     }
 
     if (length $cmd) {
diff --git a/lib/Pod/PlainText.pm b/lib/Pod/PlainText.pm
index 05e58663f2..0dce1799b2 100644
--- a/lib/Pod/PlainText.pm
+++ b/lib/Pod/PlainText.pm
@@ -29,7 +29,7 @@ use vars qw(@ISA %ESCAPES $VERSION);
 # by Pod::Usage.
 @ISA = qw(Pod::Select);
 
-$VERSION = '2.03';
+$VERSION = '2.04';
 
 BEGIN {
    if ($] < 5.006) {
@@ -312,6 +312,7 @@ sub cmd_head2 {
     if ($$self{alt}) {
         $self->output ("\n==   $_   ==\n\n");
     } else {
+        $_ .= "\n" if $$self{loose};
         $self->output (' ' x ($$self{indent} / 2) . $_ . "\n");
     }
 }
@@ -325,6 +326,7 @@ sub cmd_head3 {
     if ($$self{alt}) {
         $self->output ("\n= $_ =\n");
     } else {
+        $_ .= "\n" if $$self{loose};
         $self->output (' ' x ($$self{indent}) . $_ . "\n");
     }
 }
@@ -643,12 +645,11 @@ C<=over> blocks.  Defaults to 4.
 
 =item loose
 
-If set to a true value, a blank line is printed after a C<=head1> heading.
-If set to false (the default), no blank line is printed after C<=head1>,
-although one is still printed after C<=head2>.  This is the default because
-it's the expected formatting for manual pages; if you're formatting
-arbitrary text documents, setting this to true may result in more pleasing
-output.
+If set to a true value, a blank line is printed after a C<=headN> headings.
+If set to false (the default), no blank line is printed after C<=headN>.
+This is the default because it's the expected formatting for manual pages;
+if you're formatting arbitrary text documents, setting this to true may
+result in more pleasing output.
 
 =item sentence
 
diff --git a/lib/Pod/t/contains_pod.t b/lib/Pod/t/contains_pod.t
index b7d08319e1..25cce53781 100644
--- a/lib/Pod/t/contains_pod.t
+++ b/lib/Pod/t/contains_pod.t
@@ -5,7 +5,6 @@
 # $Id$
 
 use strict;
-
 BEGIN {
     if( $ENV{PERL_CORE} ) {
         chdir 't';
@@ -15,7 +14,6 @@ BEGIN {
     }
 }
 
-
 use Test::More tests => 2;
 
 use Pod::Find qw( contains_pod );