diff options
| -rwxr-xr-x | scripts/perl.req | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/scripts/perl.req b/scripts/perl.req index a52596b95..0d543b79d 100755 --- 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 |