This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
bf9610a
)
ppport.h: Don't print unsupported info for invalid entries
author
Karl Williamson
<khw@cpan.org>
Sun, 21 Jul 2019 18:29:22 +0000
(12:29 -0600)
committer
Nicolas 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
patch
|
blob
|
blame
|
history
diff --git
a/dist/Devel-PPPort/parts/inc/ppphbin
b/dist/Devel-PPPort/parts/inc/ppphbin
index
d1d6531
..
1450547
100644
(file)
--- a/
dist/Devel-PPPort/parts/inc/ppphbin
+++ b/
dist/Devel-PPPort/parts/inc/ppphbin
@@
-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";
}