This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
PPPort_pm.PL: Rename variable for clarity
authorKarl Williamson <khw@cpan.org>
Thu, 8 Aug 2019 18:57:12 +0000 (12:57 -0600)
committerNicolas R <atoomic@cpan.org>
Fri, 27 Sep 2019 22:51:27 +0000 (16:51 -0600)
Doing so showed that we already had an array with what we wanted, no
need to go through a hash again.

(cherry picked from commit 4f91b5dc1d8171a6bc6b54fb8d76fa6bca697f7b)
Signed-off-by: Nicolas R <atoomic@cpan.org>
dist/Devel-PPPort/PPPort_pm.PL

index 73674ae..8b24182 100644 (file)
@@ -49,11 +49,11 @@ $data =~ s{^\%(include)\s+(\w+)((?:[^\S\r\n]+.*?)?)\s*$}
 $data = expand($data);
 
 # Just the list of provided items.
-my @api = sort dictionary_order keys %provides;
+my @provided = sort dictionary_order keys %provides;
 
 # which further expands $data.
 $data =~ s{^(.*)__PROVIDED_API__(\s*?)^}
-          {join '', map "$1$_\n", @api}gem;
+          {join '', map "$1$_\n", @provided}gem;
 
 {
   my $len = 0;
@@ -113,7 +113,7 @@ my $MIN_PERL = format_version($INT_MIN_PERL);
 
 # check consistency between our list of everything provided, and our lists of
 # what got provided when
-for (@api) {
+for (@provided) {
   if (   exists $raw_todo{$_}
       && $raw_todo{$_} > $INT_MIN_PERL      # INT_MIN_PERL contents are real
                                             # symbols, not something to do
@@ -131,7 +131,7 @@ for (@api) {
 }
 
 my @perl_api;
-for (keys %provides) {
+for (@provided) {
   next if /^Perl_(.*)/ && exists $embed{$1};
   next if exists $embed{$_};
   push @perl_api, $_;