diff options
author | Sawyer X <xsawyerx@cpan.org> | 2018-04-19 14:58:37 +0200 |
---|---|---|
committer | Sawyer X <xsawyerx@cpan.org> | 2018-04-19 14:58:37 +0200 |
commit | 9dd03700df34998d21d869b9dc1b32c8e8148a75 (patch) | |
tree | 921958e4c9df0be3cbb760b2e9b82e0fad7c595b | |
parent | 58329f0d73bc9695e7cbea998f3852609ad78c3b (diff) | |
download | perl-9dd03700df34998d21d869b9dc1b32c8e8148a75.tar.gz |
Devel-PPPort: Skip entries marked as deprecated or unstable:
This commit was available in the Github repo. Original commit:
commit 5cc4d70ad5d47c2850e4eb205c6c69936af7ddb4
Author: Marcus Holland-Moritz <mhx@cpan.org>
Date: Sat Aug 27 17:05:34 2016 +0100
Skip entries marked as deprecated or unstable
From: Karl Williamson <public@khwilliamson.com>
Date: Fri, 26 Aug 2016 13:14:56 -0600
Message-ID: <dea0d899-ee5c-3e76-99a1-e53dc05fdb92@khwilliamson.com>
It seems to me that if a function is listed in embed.fnc as deprecated
or unstable, it shouldn't get listed.in D::P as needing to be backported.
-rw-r--r-- | dist/Devel-PPPort/parts/ppptools.pl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/dist/Devel-PPPort/parts/ppptools.pl b/dist/Devel-PPPort/parts/ppptools.pl index 62e533909d..6981b1bd20 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 if $flags =~ /[DM]/; # Skip entries marked as deprecated or unstable if ($name =~ /^[^\W\d]\w*$/) { for (@args) { $_ = [trim_arg($_)]; |