This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
PPPort_pm.PL: Silence warnings on early perls
authorKarl Williamson <khw@cpan.org>
Sat, 17 Aug 2019 13:37:09 +0000 (07:37 -0600)
committerNicolas R <atoomic@cpan.org>
Fri, 27 Sep 2019 22:51:28 +0000 (16:51 -0600)
Enclose some hash keys in quotes.

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

index e6421ed..abb2cbd 100644 (file)
@@ -176,23 +176,23 @@ for (@perl_api) {   # $_ is the item name
   my $is_documented = 0;
   my $is_accessible = 0;
   if (defined $e) {
-    if (exists $e->{flags}{p}) {    # Has 'Perl_' prefix
+    if (exists $e->{flags}{'p'}) {    # Has 'Perl_' prefix
       my $args = $e->{args};
       $line .= 'v' if @$args && $args->[-1][0] eq '...';
     }
     $line .= 'o' if exists $e->{ppport_fnc};
-    $line .= 'n' if exists $e->{flags}{T};  # No thread context parameter
-    $line .= 'd' if exists $e->{flags}{D};  # deprecated
-    $line .= 'x' if exists $e->{flags}{x};  # experimental
-    $line .= 'c' if        exists $e->{flags}{C}      # core-only
-                   || (    exists $e->{flags}{X}
-                       && (exists $e->{flags}{E} || ! exists $e->{flags}{m}));
-    $is_accessible = 1 if exists $e->{flags}{A}
-                       || exists $e->{flags}{C}
-                       || (     exists $e->{flags}{X}
-                           && ! exists $e->{flags}{E}
-                           &&   exists $e->{flags}{m});
-    $is_documented = 1 if exists $e->{flags}{d};
+    $line .= 'n' if exists $e->{flags}{'T'};  # No thread context parameter
+    $line .= 'd' if exists $e->{flags}{'D'};  # deprecated
+    $line .= 'x' if exists $e->{flags}{'x'};  # experimental
+    $line .= 'c' if        exists $e->{flags}{'C'}      # core-only
+                   || (    exists $e->{flags}{'X'}
+                       && (exists $e->{flags}{'E'} || ! exists $e->{flags}{'m'}));
+    $is_accessible = 1 if exists $e->{flags}{'A'}
+                       || exists $e->{flags}{'C'}
+                       || (     exists $e->{flags}{'X'}
+                           && ! exists $e->{flags}{'E'}
+                           &&   exists $e->{flags}{'m'});
+    $is_documented = 1 if exists $e->{flags}{'d'};
   }
 
   # scanprov adds the M and F flags.  The M is for provided macros; F for
@@ -222,9 +222,9 @@ for (@todo_list) {
   my $todo = "=item perl $ver\n\n";
   for (sort dictionary_order @{$todo{$_}}) {
     $todo .= "  $_";
-    $todo .= "  (DEPRECATED)" if  $embed{$_}->{flags}{D};
-    $todo .= "  (marked experimental)" if $embed{$_}->{flags}{x};
-    $todo .= "  $undocumented" unless $embed{$_}->{flags}{d};
+    $todo .= "  (DEPRECATED)" if  $embed{$_}->{flags}{'D'};
+    $todo .= "  (marked experimental)" if $embed{$_}->{flags}{'x'};
+    $todo .= "  $undocumented" unless $embed{$_}->{flags}{'d'};
     $todo .= "\n";
   }
   push @todo, $todo;
@@ -438,8 +438,8 @@ sub make_embed
   my $a = do { my $x = 'a'; join ',', map { $x++ } 1 .. @{$f->{args}} };
   my $lastarg = ${$f->{args}}[-1];
 
-  if ($f->{flags}{T}) {
-    if ($f->{flags}{p}) {
+  if ($f->{flags}{'T'}) {
+    if ($f->{flags}{'p'}) {
       return "#define $n $DPPP(my_$n)\n" .
              "#define Perl_$n $DPPP(my_$n)";
     }
@@ -453,8 +453,8 @@ sub make_embed
 #  undef $n
 #endif
 UNDEF
-    if ($f->{flags}{p}) {
-      if ($f->{flags}{f}) {
+    if ($f->{flags}{'p'}) {
+      if ($f->{flags}{'f'}) {
         return "#define Perl_$n $DPPP(my_$n)";
       }
       elsif (@$lastarg && $lastarg->[0] =~ /\.\.\./) {