diff -Naur rpm-4.0.2/scripts/perl.prov rpm-4.0.2-p/scripts/perl.prov
--- rpm-4.0.2/scripts/perl.prov	Fri Jun 22 16:03:59 2001
+++ rpm-4.0.2-p/scripts/perl.prov	Fri Jun 22 16:03:46 2001
@@ -99,11 +99,11 @@
     # properly belongs in the over/back section) but people do not
     # read the perldoc.
 
-    if ( (m/^=(head1|head2|pod|item)/) .. (m/^=(cut)/) ) {
+    if ( (m/^=(head1|head2|pod|item)/) .. (m/^=(cut)/ || eof) ) {
       next;
     }
     
-    if ( (m/^=(over)/) .. (m/^=(back)/) ) {
+    if ( (m/^=(over)/) .. (m/^=(back)/ || eof) ) {
       next;
     }