diff options
| author | Panu Matilainen <pmatilai@redhat.com> | 2010-02-15 08:52:54 +0200 |
|---|---|---|
| committer | Panu Matilainen <pmatilai@redhat.com> | 2010-02-15 08:52:54 +0200 |
| commit | 22392d2245df78ef13acd9f1a2d413c85c271432 (patch) | |
| tree | 4f6e2b370bf526f7d082054128659e0cf3a72af5 /scripts | |
| parent | c2b1b54500bdbd1c252da210a05d989b877cb9c6 (diff) | |
| download | librpm-tizen-22392d2245df78ef13acd9f1a2d413c85c271432.tar.gz librpm-tizen-22392d2245df78ef13acd9f1a2d413c85c271432.tar.bz2 librpm-tizen-22392d2245df78ef13acd9f1a2d413c85c271432.zip | |
Skip over =for ... perlpod construct (RhBug:477516)
- patch from Ville Skyttä
Diffstat (limited to 'scripts')
| -rwxr-xr-x | scripts/perl.prov | 2 | ||||
| -rwxr-xr-x | scripts/perl.req | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/scripts/perl.prov b/scripts/perl.prov index 4d5bd8181..deb8fc003 100755 --- a/scripts/perl.prov +++ b/scripts/perl.prov @@ -94,7 +94,7 @@ sub process_file { # properly belongs in the over/back section) but people do not # read the perldoc. - if (m/^=(head[1-4]|pod|item)/) { + if (m/^=(head[1-4]|pod|for|item)/) { $incomment = 1; } diff --git a/scripts/perl.req b/scripts/perl.req index 07eed6bdc..587b3a5e9 100755 --- a/scripts/perl.req +++ b/scripts/perl.req @@ -112,7 +112,7 @@ sub process_file { # properly belongs in the over/back section) but people do not # read the perldoc. - if ( (m/^=(head[1-4]|pod|item)/) .. (m/^=(cut)/) ) { + if ( (m/^=(head[1-4]|pod|for|item)/) .. (m/^=(cut)/) ) { next; } |