devel/mktodo.pl: Get working on threaded perls.

If we don't ignore issues with this libc symbol, pthread_getspecific(),
we don't work on threaded perls.

I don't understand why this is undefined.

(cherry picked from commit dd767ef602ff590b061b8d54d83eaec1945ec473)
Signed-off-by: Nicolas R <atoomic@cpan.org>

diff --git a/dist/Devel-PPPort/devel/mktodo.pl b/dist/Devel-PPPort/devel/mktodo.pl
index 62936bd..05b09a9 100644 (file)
--- a/dist/Devel-PPPort/devel/mktodo.pl
+++ b/dist/Devel-PPPort/devel/mktodo.pl
@@ -206,6 +206,12 @@ retry:
       # keys, being all the symbols referred to within it (with their values
       # btw being the count of occurrences in the element).
       for my $m (keys %{$symmap->{$u}}) {
+
+        # pthread_getspecific() is undefined.  khw doesn't know why.  But we
+        # have a bunch of things depending on it, so it doesn't work unless we
+        # ignore this apparently spurious issue.
+        next if $u eq 'pthread_getspecific';
+
         if (!$seen{$m}++) {
           my $pl = $m;
           $pl =~ s/^[Pp]erl_//;