X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/18c37bcd0801ba0ac61738ba5c9e88d31ad39298..59974c5d6bc085f2af17a8943bf3e5ee5cdea3e1:/dist/Devel-PPPort/parts/apicheck.pl?ds=inline

diff --git a/dist/Devel-PPPort/parts/apicheck.pl b/dist/Devel-PPPort/parts/apicheck.pl
index 9818c27..68b6a0a 100644
--- 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_' : '';