Fix open POD section leak across different files in perl.req.

diff --git a/scripts/perl.req b/scripts/perl.req
index a52596b..0d543b7 100755 (executable)
--- a/scripts/perl.req
+++ b/scripts/perl.req
@@ -115,12 +115,12 @@ sub process_file {
     # properly belongs in the over/back section) but people do not
     # read the perldoc.
 
-    if ( (m/^=(head[1-4]|pod|for|item)/) .. (m/^=(cut)/) ) {
-      next;
+    if (/^=(head[1-4]|pod|for|item)/) {
+      /^=cut/ && next while <FILE>;
     }
 
-    if ( (m/^=(over)/) .. (m/^=(back)/) ) {
-      next;
+    if (/^=over/) {
+      /^=back/ && next while <FILE>;
     }
 
     # skip the data section