Description: Correct headings
--- libsendmail-pmilter-perl-1.00.orig/lib/Sendmail/Milter.pm
+++ libsendmail-pmilter-perl-1.00/lib/Sendmail/Milter.pm
@@ -145,6 +145,10 @@ __END__
 
 =pod
 
+=head1 NAME
+
+Sendmail::Milter - compatibility interface for Sendmail::PMilter
+
 =head1 SYNOPSIS
  
     use Sendmail::Milter;
--- libsendmail-pmilter-perl-1.00.orig/lib/Sendmail/PMilter.pm
+++ libsendmail-pmilter-perl-1.00/lib/Sendmail/PMilter.pm
@@ -80,8 +80,6 @@ to be called Mail::Milter.
 
 =head1 METHODS
 
-=over 4
-
 =cut
 
 ##### Symbols exported to the caller
@@ -124,6 +122,8 @@ sub new ($) {
 
 =pod
 
+=over 4
+
 =item get_max_interpreters()
 
 Returns the maximum number of interpreters passed to C<main()>.  This is
@@ -470,10 +470,6 @@ these methods would not be useful with t
 
 =over 4
 
-=cut
-
-=pod
-
 =item auto_getconn(NAME[, CONFIG])
 
 Returns the connection descriptor for milter NAME in Sendmail configuration
@@ -950,6 +946,8 @@ Note that, because the default socket ba
 wise to increase this backlog by calling C<set_listen()> before entering
 C<main()> if using this dispatcher.
 
+=back
+
 =cut
 
 sub sequential_dispatcher () {
@@ -1042,8 +1040,6 @@ when called:
 
 =back
 
-=back
-
 =head1 SECURITY CONSIDERATIONS
 
 =over 4
--- libsendmail-pmilter-perl-1.00.orig/lib/Sendmail/PMilter/Context.pm
+++ libsendmail-pmilter-perl-1.00/lib/Sendmail/PMilter/Context.pm
@@ -48,7 +48,7 @@ our $VERSION = '0.94';
 
 =pod
 
-=head1 SYNOPSIS
+=head1 NAME
 
 Sendmail::PMilter::Context - per-connection milter context
 
@@ -60,8 +60,6 @@ This manual explains publicly accessible
 
 =head1 METHODS
 
-=over 4
-
 =cut
 
 ##### Symbols exported to the caller
@@ -394,6 +392,8 @@ sub call_hooks ($$;@) {
 
 =pod
 
+=over 4
+
 =item $ctx->getpriv
 
 Returns the private data object for this milter instance, set by