Perl · khwilliamson · Aug 3, 2020 · Jul 31, 2020
diff --git a/dist/Devel-PPPort/Changes b/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)

diff --git a/dist/Devel-PPPort/HACKERS b/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
 

diff --git a/dist/Devel-PPPort/Makefile.PL b/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;
   }

diff --git a/dist/Devel-PPPort/PPPort_pm.PL b/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
 /*
 ----------------------------------------------------------------------

diff --git a/dist/Devel-PPPort/devel/mkapidoc.pl b/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";

diff --git a/dist/Devel-PPPort/mktests.PL b/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;
 

diff --git a/dist/Devel-PPPort/parts/apicheck.pl b/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

diff --git a/dist/Devel-PPPort/parts/apidoc.fnc b/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

diff --git a/dist/Devel-PPPort/parts/base/5017006 b/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

diff --git a/dist/Devel-PPPort/parts/base/5019003 b/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
diff --git a/dist/Devel-PPPort/parts/base/5019009 b/dist/Devel-PPPort/parts/base/5019009
@@ -1,4 +1,3 @@
 5.019009
 WARN_EXPERIMENTAL__SIGNATURES  # E
-_get_regclass_nonbitmap_data   # F added by devel/scanprov
 put_range                      # F added by devel/scanprov
diff --git a/dist/Devel-PPPort/parts/base/5031006 b/dist/Devel-PPPort/parts/base/5031006
@@ -1,10 +1,5 @@
 5.031006
 UTF8_CHK_SKIP                  # U
-do_trans_count_invmap          # F added by devel/scanprov
-do_trans_invmap                # F added by devel/scanprov
-invmap_dump                    # F added by devel/scanprov
 _is_utf8_FOO                   # F added by devel/scanprov
 _is_utf8_perl_idcont           # F added by devel/scanprov
 _is_utf8_perl_idstart          # F added by devel/scanprov
-make_exactf_invlist            # F added by devel/scanprov
-sv_derived_from_svpvn          # F added by devel/scanprov
diff --git a/dist/Devel-PPPort/parts/base/5031007 b/dist/Devel-PPPort/parts/base/5031007
@@ -2,12 +2,18 @@
 csighandler                    # E (Perl_csighandler)
 csighandler1                   # U
 csighandler3                   # E
+memCHRs                        # U
 perly_sighandler               # E
 sv_isa_sv                      # U
 WARN_EXPERIMENTAL__ISA         # E
+do_trans_count_invmap          # F added by devel/scanprov
+do_trans_invmap                # F added by devel/scanprov
 find_first_differing_byte_pos  # F added by devel/scanprov
 invlist_lowest                 # F added by devel/scanprov
+invmap_dump                    # F added by devel/scanprov
 is_grapheme                    # F added by devel/scanprov
+make_exactf_invlist            # F added by devel/scanprov
 quadmath_format_valid          # F added by devel/scanprov
 sighandler1                    # F added by devel/scanprov
 sighandler3                    # F added by devel/scanprov
+sv_derived_from_svpvn          # F added by devel/scanprov
diff --git a/dist/Devel-PPPort/parts/base/5031008 b/dist/Devel-PPPort/parts/base/5031008
@@ -1,4 +1,3 @@
 5.031008
-memCHRs                        # U
 grok_bin_oct_hex               # F added by devel/scanprov
 output_non_portable            # F added by devel/scanprov