Comment 13 for bug 638596

This is the quick fix for not extracting perl(...) dependencies for perl pod's
in /usr/share/doc. This issue was "fixed" like 3+ years ago.

- == rpm.org rpmfc.c
+ == rpm5.org rpmfc.c

@@ -744,361 +748,126 @@
     (void) fclose(fp);

     if (fc->fcolor->vals[fc->ix] & RPMFC_PERL) {
- if (fc->fcolor->vals[fc->ix] & RPMFC_MODULE)
- xx = rpmfcHelper(fc, 'P', "perl");
- if (is_executable || (fc->fcolor->vals[fc->ix] & RPMFC_MODULE))
- xx = rpmfcHelper(fc, 'R', "perl");
- }
+ if (strncmp(fn, "/usr/share/doc/", sizeof("/usr/share/doc/")-1)) {
+ if (fc->fcolor->vals[fc->ix] & RPMFC_MODULE)
+ xx = rpmfcHelper(fc, 'P', "perl");
+ if (is_executable || (fc->fcolor->vals[fc->ix] & RPMFC_MODULE))
+ xx = rpmfcHelper(fc, 'R', "perl");
+ }
+ } else
...