This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
parts/apicheck.pl: Don't test macros with weird params
[perl5.git] / dist / Devel-PPPort / parts / apicheck.pl
index 9818c27..68b6a0a 100644 (file)
@@ -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_' : '';