parts/apicheck.pl: Don't test macros with weird params

[perl5.git] / dist / Devel-PPPort / parts / apicheck.pl

diff --git a/dist/Devel-PPPort/parts/apicheck.pl b/dist/Devel-PPPort/parts/apicheck.pl
index 9818c27..68b6a0a 100644 (file)
--- a/dist/Devel-PPPort/parts/apicheck.pl
+++ b/dist/Devel-PPPort/parts/apicheck.pl
@@ -239,6 +239,9 @@ for $f (@f) {   # Loop through all the tests to add
   # want them to be tested even if non-public.
   $f->{'flags'}{'A'} or $f->{'ppport_fnc'} or next;
 
+  # Don't test unorthodox things that we aren't set up to do
+  $f->{'flags'}{'u'} and next;
+
   $ignore{$unique} = 1; # ignore duplicates
 
   my $Perl_ = $f->{'flags'}{'p'} ? 'Perl_' : '';