From 8562a3dedd72dcdb38d0418a7fc3e434696b5914 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Fri, 31 May 2019 10:20:44 -0600 Subject: [PATCH] ppptools.pl: Don't store non-public functions D:P shouldn't be making available things that aren't in the public API. (cherry picked from commit 0834e32743a278f0737d0b20db77301aba5cd83c) Signed-off-by: Nicolas R --- dist/Devel-PPPort/parts/ppptools.pl | 1 + 1 file changed, 1 insertion(+) diff --git a/dist/Devel-PPPort/parts/ppptools.pl b/dist/Devel-PPPort/parts/ppptools.pl index e84f646..802ad1a 100644 --- a/dist/Devel-PPPort/parts/ppptools.pl +++ b/dist/Devel-PPPort/parts/ppptools.pl @@ -306,6 +306,7 @@ sub parse_embed my @e = split /\s*\|\s*/, $line; if( @e >= 3 ) { my($flags, $ret, $name, @args) = @e; + next unless $flags =~ /A/; # Skip non-public entries next if $flags =~ /[DM]/; # Skip entries marked as deprecated or unstable if ($name =~ /^[^\W\d]\w*$/) { for (@args) { -- 1.8.3.1