This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ppport.h: Don't print unsupported info for invalid entries
authorKarl Williamson <khw@cpan.org>
Sun, 21 Jul 2019 18:29:22 +0000 (12:29 -0600)
committerNicolas R <atoomic@cpan.org>
Fri, 27 Sep 2019 22:39:33 +0000 (16:39 -0600)
By 'invalid', I mean ones that are, say deprecated or inaccessible
outside core, etc.

(cherry picked from commit a114ba3327ec8379d16b870e91d260b1e99b1866)
Signed-off-by: Nicolas R <atoomic@cpan.org>
dist/Devel-PPPort/parts/inc/ppphbin

index d1d6531..1450547 100644 (file)
@@ -86,6 +86,10 @@ __PERL_API__
 if (exists $opt{'list-unsupported'}) {
   my $f;
   for $f (sort dictionary_order keys %API) {
+    next if $API{$f}{core_only};
+    next if $API{$f}{beyond_depr};
+    next if $API{$f}{inaccessible};
+    next if $API{$f}{experimental};
     next unless $API{$f}{todo};
     print "$f ", '.'x(40-length($f)), " ", format_version($API{$f}{todo}), "\n";
   }