rpm-perlprov.patch

   1 diff -Naur rpm-4.0.2/scripts/perl.prov rpm-4.0.2-p/scripts/perl.prov
   2 --- rpm-4.0.2/scripts/perl.prov Fri Jun 22 16:03:59 2001
   3 +++ rpm-4.0.2-p/scripts/perl.prov       Fri Jun 22 16:03:46 2001
   4 @@ -99,11 +99,11 @@
   5      # properly belongs in the over/back section) but people do not
   6      # read the perldoc.
   7
   8 -    if ( (m/^=(head1|head2|pod|item)/) .. (m/^=(cut)/) ) {
   9 +    if ( (m/^=(head1|head2|pod|item)/) .. (m/^=(cut)/ || eof) ) {
  10        next;
  11      }
  12
  13 -    if ( (m/^=(over)/) .. (m/^=(back)/) ) {
  14 +    if ( (m/^=(over)/) .. (m/^=(back)/ || eof) ) {
  15        next;
  16      }
  17