Devel-PPPort: Bump to upstream at 7180c297

These changes from Devel-PPPort are adding
support for Perl 7.0 and fixes the testsuite
with a Perl 7.0.0 binary.

We would have to publish a new version of
Devel-PPPort.

Author: atoomic

dist/Devel-PPPort/Changes

@@ -1,5 +1,11 @@
 Revision history for Devel-PPPort
 
+ 3.58 - 2020-03-09
+
+ * Safer definition of UVCHR_SKIP
+ * Make sure WIDEST_UTYPE is unsigned
+ * Avoid Pax Header in tarballs
+
  3.57 - 2020-01-31
 
  * Fix eval_sv for Perl versions prior to 5.6.0 (Pali)

dist/Devel-PPPort/HACKERS

@@ -204,20 +204,24 @@ Perl public API.
 
 =item Version numbers
 
-Version checking can be tricky to get correct (besides being buggy in some perl
-versions).
-C<ivers()> is used in the C<=tests> section to overcome this, and constructs
+Version checking used to be tricky to get correct (besides being buggy in some
+perl versions).
+C<ivers()> is used in the C<=tests> section to overcome this. and constructs
 like the following in the C language sections.
 
-  #if { VERSION < 5.9.3 }
+  #if PERL_VERSION_EQ(5,9,3)
+  #if PERL_VERSION_NE(5,9,3)
+  #if PERL_VERSION_LT(5,9,3)
+  #if PERL_VERSION_GT(5,9,3)
+  #if PERL_VERSION_LE(5,9,3)
+  #if PERL_VERSION_GE(5,9,3)
 
-instead of
+An alternative way of saying things like these is
 
-  #if ((PERL_VERSION < 9) \
-    || (PERL_VERSION == 9 && PERL_SUBVERSION < 3))
+  #if { VERSION < 5.9.3 }
 
-The version number can be either of the new form C<5.x.x> or the older
-form C<5.00x_yy>. Both are translated into the correct preprocessor
+In this form, the version number can be either of the new form C<5.x.x> or the
+older form C<5.00x_yy>. Both are translated into the correct preprocessor
 statements. It is also possible to combine this with other statements:
 
   #if { VERSION >= 5.004 } && !defined(sv_vcatpvf)
@@ -399,7 +403,7 @@ collect the remaining information in F<parts/apidoc.fnc>.
 =item *
 
 The final step before regenerating everything is to run
-F</devel/mkppport_fnc.pl> to update the F</parts/ppport.fnc> file.
+F<devel/mkppport_fnc.pl> to update the F</parts/ppport.fnc> file.
 
 =back
 

dist/Devel-PPPort/Makefile.PL

@@ -219,6 +219,8 @@ sub MY::dist_core
     if ( $rule =~ m{^\s*^dist\s+:}m ) {
         $rule =~ s{:}{: PPPort.pm manifest}; # make sure we update PPPort.pm
         $rule .= qq[\t].q[$(NOECHO) $(ECHO) "Warning: Please check '__MAX_PERL__' value in PPPort_pm.PL"].qq[\n];
+        # checking that the tarball has no Pax Header - avoid false positives by using [P]axHEader
+        $rule .= qq[\t].q[$(NOECHO) zgrep -a -e '[P]axHeader' $(DISTVNAME).tar$(SUFFIX) && ( $(ECHO) "ERROR: Pax Header detected in tarball"; rm -f $(DISTVNAME).tar$(SUFFIX) ) ||:].qq[\n];
     }
     $updated .= $rule;
   }

dist/Devel-PPPort/PPPort_pm.PL

@@ -711,7 +711,7 @@ package Devel::PPPort;
 use strict;
 use vars qw($VERSION $data);
 
-$VERSION = '3.57';
+$VERSION = '3.58';
 
 sub _init_data
 {
@@ -747,7 +747,7 @@ sub WriteFile
 
 __DATA__
 #if 0
-<<'SKIP';
+my $void = <<'SKIP';
 #endif
 /*
 ----------------------------------------------------------------------

dist/Devel-PPPort/devel/mkapidoc.pl

@@ -23,7 +23,10 @@
 use strict;
 
 my $PERLROOT = $ARGV[0];
-$PERLROOT = '../..' unless $PERLROOT;
+unless ($PERLROOT) {
+    $PERLROOT = '../..';
+    print STDERR "$0: perl directory root argument not specified. Assuming '$PERLROOT'\n";
+}
 
 die "'$PERLROOT' is invalid, or you haven't successfully run 'make' in it"
                                                 unless -e "$PERLROOT/warnings.h";

dist/Devel-PPPort/mktests.PL

@@ -78,7 +78,7 @@ BEGIN {
   if ($ENV{'PERL_CORE'}) {
     chdir 't' if -d 't';
     unshift @INC, '../lib' if -d '../lib' && -d '../ext';
-    require Config; import Config;
+    require Config; Config->import;
     use vars '%Config';
     if (" $Config{'extensions'} " !~ m[ Devel/PPPort ]) {
       print "1..0 # Skip -- Perl configured without Devel::PPPort module\n";
@@ -110,7 +110,7 @@ package Devel::PPPort;
 use vars '@ISA';
 require DynaLoader;
 @ISA = qw(DynaLoader);
-bootstrap Devel::PPPort;
+Devel::PPPort->bootstrap;
 
 package main;
 

dist/Devel-PPPort/parts/apicheck.pl

@@ -339,7 +339,13 @@
   # #ifdef out if marked as todo (not known in) this version
   if (exists $todo{$f->{'name'}}) {
     my($five, $ver,$sub) = parse_version($todo{$f->{'name'}}{'version'});
-    print OUT "#if PERL_VERSION > $ver || (PERL_VERSION == $ver && PERL_SUBVERSION >= $sub) /* TODO */\n";
+    print OUT <<EOT;
+#if       PERL_REVISION > $five                             \\
+   || (   PERL_REVISION == $five                            \\
+       && (   PERL_VERSION > $ver                           \\
+           || (   PERL_VERSION == $ver                      \\
+               && PERL_SUBVERSION >= $sub))) /* TODO */
+EOT
   }
 
   my $final = $varargs

dist/Devel-PPPort/parts/apidoc.fnc

@@ -20,6 +20,7 @@ Amd|void|__ASSERT_|bool expr
 Amnhd||aTHX
 Amnhd||aTHX_
 Amd|int|AvFILL|AV* av
+md|int|AvFILLp|AV* av
 Amnd|I32|ax
 Amxud|void|BhkDISABLE|BHK *hk|which
 Amxud|void|BhkENABLE|BHK *hk|which
@@ -583,13 +584,23 @@ AmnUhd||PERL_UQUAD_MIN
 AmnUhd||PERL_USHORT_MAX
 AmnUhd||PERL_USHORT_MIN
 hAmnd|int|PERL_VERSION
+AmdR|bool|PERL_VERSION_EQ|const int r|const int v|const int s
+AmdR|bool|PERL_VERSION_GE|const int r|const int v|const int s
+AmdR|bool|PERL_VERSION_GT|const int r|const int v|const int s
+AmdR|bool|PERL_VERSION_LE|const int r|const int v|const int s
+AmdR|bool|PERL_VERSION_LT|const int r|const int v|const int s
+AmdR|bool|PERL_VERSION_NE|const int r|const int v|const int s
 AmnUd|Perl_check_t *|PL_check
 AmnxUd|PAD *|PL_comppad
 AmnxUd|PADNAMELIST *|PL_comppad_name
 Amnd|COP*|PL_curcop
 AmnxUd|SV **|PL_curpad
 Amnd|HV*|PL_curstash
+mnd|SV *|PL_DBsingle
+mnd|GV *|PL_DBsub
+mnd|SV *|PL_DBtrace
 Amnd|GV *|PL_defgv
+mnd|U8|PL_dowarn
 Amnhd|GV *|PL_errgv
 Amnd|U8|PL_exit_flags
 AmnUxd|Perl_keyword_plugin_t|PL_keyword_plugin

dist/Devel-PPPort/parts/base/5017006

@@ -1,5 +1,4 @@
 5.017006
-croak_memory_wrap              # U
 READ_XDIGIT                    # U
 croak_no_mem                   # F added by devel/scanprov
 get_and_check_backslash_N_name # F added by devel/scanprov

dist/Devel-PPPort/parts/base/5019003

@@ -2,6 +2,7 @@
 PERL_EXIT_ABORT                # E
 PERL_EXIT_WARN                 # E
 sv_pos_b2u_flags               # U
+croak_memory_wrap              # M added by devel/scanprov
 adjust_size_and_find_bucket    # F added by devel/scanprov
 cv_const_sv_or_av              # F added by devel/scanprov
 _invlist_dump                  # F added by devel/scanprov