diff options
| author | Ville Skyttä <ville.skytta@iki.fi> | 2010-02-25 19:45:10 +0200 |
|---|---|---|
| committer | Panu Matilainen <pmatilai@redhat.com> | 2010-03-01 11:51:41 +0200 |
| commit | c4b4a7e712e36d5074679e413e14150031eed407 (patch) | |
| tree | 5d0a1687e880be8c9d4921af6452fdf0e98a5a46 /scripts | |
| parent | 0ffc1e914359d9c22079c18b1f32ec7e310aa57b (diff) | |
| download | librpm-tizen-c4b4a7e712e36d5074679e413e14150031eed407.tar.gz librpm-tizen-c4b4a7e712e36d5074679e413e14150031eed407.tar.bz2 librpm-tizen-c4b4a7e712e36d5074679e413e14150031eed407.zip | |
Fix open POD section leak across different files in perl.req.
Diffstat (limited to 'scripts')
| -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 |