upgrade/perl_5.38.2 (#26)

* change script

* change script

* compile

* upgrade/perl_5.38.2

bin/corelist

@@ -1,6 +1,6 @@
 #!/home/git/binary-com/perl/bin/perl
  eval 'exec /home/git/binary-com/perl/bin/perl -S $0 ${1+"$@"}'
- if $running_under_some_shell;
+ if 0; # ^ Run only under a shell
 #!/usr/bin/perl
 
 =head1 NAME
@@ -17,6 +17,8 @@ See L<Module::CoreList> for one.
  corelist [-a|-d] <ModuleName> | /<ModuleRegex>/ [<ModuleVersion>] ...
  corelist [-v <PerlVersion>] [ <ModuleName> | /<ModuleRegex>/ ] ...
  corelist [-r <PerlVersion>] ...
+ corelist --utils [-d] <UtilityName> [<UtilityName>] ...
+ corelist --utils -v <PerlVersion>
  corelist --feature <FeatureName> [<FeatureName>] ...
  corelist --diff PerlVersion PerlVersion
  corelist --upstream <ModuleName>
@@ -116,6 +118,15 @@ lists all of the perl releases and when they were released
 
 If you pass a perl version you get the release date for that version only.
 
+=item --utils
+
+lists the first version of perl each named utility program was released with
+
+May be used with -d to modify the first release criteria.
+
+If used with -v <version> then all utilities released with that version of perl
+are listed, and any utility programs named on the command line are ignored.
+
 =item --feature, -f
 
 lists the first version bundle of each named feature given
@@ -145,7 +156,7 @@ my %Opts;
 
 GetOptions(
  \%Opts,
- qw[ help|?! man! r|release:s v|version:s a! d diff|D feature|f u|upstream ]
+ qw[ help|?! man! r|release:s v|version:s a! d diff|D utils feature|f u|upstream ]
 );
 
 pod2usage(1) if $Opts{help};
@@ -184,6 +195,12 @@ if(exists $Opts{v} ){
  }
 
  my $num_v = numify_version( $Opts{v} );
+
+ if ($Opts{utils}) {
+ utilities_in_version($num_v);
+ exit 0;
+ }
+
  my $version_hash = Module::CoreList->find_version($num_v);
 
  if( !$version_hash ) {
@@ -210,7 +227,15 @@ if ($Opts{diff}) {
  my ($old_ver, $new_ver) = @ARGV;
 
  my $old = numify_version($old_ver);
+ if ( !Module::CoreList->find_version($old) ) {
+ print "\nModule::CoreList has no info on perl $old_ver\n\n";
+ exit 1;
+ }
  my $new = numify_version($new_ver);
+ if ( !Module::CoreList->find_version($new) ) {
+ print "\nModule::CoreList has no info on perl $new_ver\n\n";
+ exit 1;
+ }
 
  my %diff = Module::CoreList::changes_between($old, $new);
 
@@ -230,6 +255,25 @@ if ($Opts{diff}) {
  exit(0);
 }
 
+if ($Opts{utils}) {
+ die "\n--utils only available with perl v5.19.1 or greater\n"
+ if $] < 5.019001;
+
+ die "\nprovide at least one utility name to --utils\n"
+ unless @ARGV;
+
+ warn "\n-a has no effect when --utils is used\n" if $Opts{a};
+ warn "\n--diff has no effect when --utils is used\n" if $Opts{diff};
+ warn "\n--upstream, or -u, has no effect when --utils is used\n" if $Opts{u};
+
+ my $when = maxstr(values %Module::CoreList::released);
+ print "\n","Data for $when\n";
+
+ utility_version($_) for @ARGV;
+
+ exit(0);
+}
+
 if ($Opts{feature}) {
  die "\n--feature is only available with perl v5.16.0 or greater\n"
  if $] < 5.016;
@@ -367,6 +411,47 @@ sub module_version {
  }
 }
 
+sub utility_version {
+ my ($utility) = @_;
+
+ require Module::CoreList::Utils;
+
+ my $released = $Opts{d}
+ ? Module::CoreList::Utils->first_release_by_date($utility)
+ : Module::CoreList::Utils->first_release($utility);
+
+ my $removed = $Opts{d}
+ ? Module::CoreList::Utils->removed_from_by_date($utility)
+ : Module::CoreList::Utils->removed_from($utility);
+
+ if ($released) {
+ print "$utility was first released with perl ", format_perl_version($released);
+ print " and later removed in ", format_perl_version($removed)
+ if $removed;
+ print "\n";
+ } else {
+ print "$utility was not in CORE (or so I think)\n";
+ }
+}
+
+sub utilities_in_version {
+ my ($version) = @_;
+
+ require Module::CoreList::Utils;
+
+ my @utilities = Module::CoreList::Utils->utilities($version);
+
+ if (not @utilities) {
+ print "\nModule::CoreList::Utils has no info on perl $version\n\n";
+ exit 1;
+ }
+
+ print "\nThe following utilities were in perl ",
+ format_perl_version($version), " CORE\n";
+ print "$_\n" for sort { lc($a) cmp lc($b) } @utilities;
+ print "\n";
+}
+
 
 sub max_mod_len {
  my $versions = shift;

bin/cpan

@@ -1,13 +1,18 @@
 #!/home/git/binary-com/perl/bin/perl
  eval 'exec /home/git/binary-com/perl/bin/perl -S $0 ${1+"$@"}'
- if $running_under_some_shell;
+ if 0; # ^ Run only under a shell
 #!/usr/local/bin/perl
 
 BEGIN { pop @INC if $INC[-1] eq '.' }
 use strict;
 use vars qw($VERSION);
 
-use App::Cpan '1.64';
+use App::Cpan;
+use CPAN::Version;
+my $minver = '1.64';
+if ( CPAN::Version->vlt($App::Cpan::VERSION, $minver) ) {
+ warn "WARNING: your version of App::Cpan is $App::Cpan::VERSION while we would expect at least $minver";
+}
 $VERSION = '1.64';
 
 my $rc = App::Cpan->run( @ARGV );
@@ -249,9 +254,9 @@ The build tools, L<ExtUtils::MakeMaker> and L<Module::Build> use some,
 while others matter to the levels above them. Some of these are specified
 by the Perl Toolchain Gang:
 
-Lancaster Concensus: L<https://github.com/Perl-Toolchain-Gang/toolchain-site/blob/master/lancaster-consensus.md>
+Lancaster Consensus: L<https://github.com/Perl-Toolchain-Gang/toolchain-site/blob/master/lancaster-consensus.md>
 
-Oslo Concensus: L<https://github.com/Perl-Toolchain-Gang/toolchain-site/blob/master/oslo-consensus.md>
+Oslo Consensus: L<https://github.com/Perl-Toolchain-Gang/toolchain-site/blob/master/oslo-consensus.md>
 
 =over 4
 
@@ -268,7 +273,7 @@ to C<1> unless it already has a value (even if that value is false).
 
 =item CPAN_OPTS
 
-As with C<PERL5OPTS>, a string of additional C<cpan(1)> options to
+As with C<PERL5OPT>, a string of additional C<cpan(1)> options to
 add to those you specify on the command line.
 
 =item CPANSCRIPT_LOGLEVEL

bin/enc2xs

@@ -1,6 +1,6 @@
 #!/home/git/binary-com/perl/bin/perl
  eval 'exec /home/git/binary-com/perl/bin/perl -S $0 ${1+"$@"}'
- if $running_under_some_shell;
+ if 0; # ^ Run only under a shell
 #!./perl
 BEGIN {
  # @INC poking no longer needed w/ new MakeMaker and Makefile.PL's
@@ -14,7 +14,7 @@ use warnings;
 use Getopt::Std;
 use Config;
 my @orig_ARGV = @ARGV;
-our $VERSION = do { my @r = (q$Revision: 2.20 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our $VERSION = do { my @r = (q$Revision: 2.24 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 # These may get re-ordered.
 # RAW is a do_now as inserted by &enter
@@ -147,6 +147,7 @@ getopts('CM:SQqOo:f:n:v',\%opt);
 $opt{M} and make_makefile_pl($opt{M}, @ARGV);
 $opt{C} and make_configlocal_pm($opt{C}, @ARGV);
 $opt{v} ||= $ENV{ENC2XS_VERBOSE};
+$opt{q} ||= $ENV{ENC2XS_NO_COMMENTS};
 
 sub verbose {
  print STDERR @_ if $opt{v};
@@ -251,7 +252,12 @@ if ($cname =~ /\.(c|xs)$/i) # VMS may have upcased filenames with DECC$ARGV_PARS
 END
  }
 
- if ($cname =~ /(\w+)\.xs$/)
+ if ($cname =~ /\.c$/i && $Config{ccname} eq "gcc")
+ {
+ print C qq(#pragma GCC diagnostic ignored "-Wc++-compat"\n);
+ }
+
+ if ($cname =~ /\.xs$/i)
  {
  print C "#define PERL_NO_GET_CONTEXT\n";
  print C "#include <EXTERN.h>\n";
@@ -261,15 +267,15 @@ END
  print C "#include \"encode.h\"\n\n";
 
  }
-elsif ($cname =~ /\.enc$/)
+elsif ($cname =~ /\.enc$/i)
  {
  $doEnc = 1;
  }
-elsif ($cname =~ /\.ucm$/)
+elsif ($cname =~ /\.ucm$/i)
  {
  $doUcm = 1;
  }
-elsif ($cname =~ /\.pet$/)
+elsif ($cname =~ /\.pet$/i)
  {
  $doPet = 1;
  }
@@ -917,24 +923,7 @@ sub decode_U
 }
 
 my @uname;
-sub char_names
-{
- my $s = do "unicore/Name.pl";
- die "char_names: unicore/Name.pl: $!\n" unless defined $s;
- pos($s) = 0;
- while ($s =~ /\G([0-9a-f]+)\t([0-9a-f]*)\t(.*?)\s*\n/igc)
- {
- my $name = $3;
- my $s = hex($1);
- last if $s >= 0x10000;
- my $e = length($2) ? hex($2) : $s;
- for (my $i = $s; $i <= $e; $i++)
- {
- $uname[$i] = $name;
-# print sprintf("U%04X $name\n",$i);
- }
- }
-}
+sub char_names{} # cf. https://rt.cpan.org/Ticket/Display.html?id=132471
 
 sub output_ucm_page
 {
@@ -1041,8 +1030,7 @@ sub find_e2x{
 
 sub make_makefile_pl
 {
- eval { require Encode; };
- $@ and die "You need to install Encode to use enc2xs -M\nerror: $@\n";
+ eval { require Encode } or die "You need to install Encode to use enc2xs -M\nerror: $@\n";
  # our used for variable expansion
  $_Enc2xs = $0;
  $_Version = $VERSION;
@@ -1066,8 +1054,7 @@ use vars qw(
  );
 
 sub make_configlocal_pm {
- eval { require Encode; };
- $@ and die "Unable to require Encode: $@\n";
+ eval { require Encode } or die "Unable to require Encode: $@\n";
  eval { require File::Spec; };
 
  # our used for variable expantion
@@ -1087,8 +1074,7 @@ sub make_configlocal_pm {
  $mod =~ s/.*\bEncode\b/Encode/o;
  $mod =~ s/\.pm\z//o;
  $mod =~ s,/,::,og;
- eval qq{ require $mod; };
- return if $@;
+ eval qq{ require $mod; } or return;
  warn qq{ require $mod;\n};
  for my $enc ( Encode->encodings() ) {
  no warnings;
@@ -1122,8 +1108,7 @@ sub _mkversion{
 }
 
 sub _print_expand{
- eval { require File::Basename; };
- $@ and die "File::Basename needed. Are you on miniperl?;\nerror: $@\n";
+ eval { require File::Basename } or die "File::Basename needed. Are you on miniperl?;\nerror: $@\n";
  File::Basename->import();
  my ($src, $dst, $clobber) = @_;
  if (!$clobber and -e $dst){

bin/encguess

@@ -1,6 +1,6 @@
 #!/home/git/binary-com/perl/bin/perl
  eval 'exec /home/git/binary-com/perl/bin/perl -S $0 ${1+"$@"}'
- if $running_under_some_shell;
+ if 0; # ^ Run only under a shell
 #!./perl
 use 5.008001;
 BEGIN { pop @INC if $INC[-1] eq '.' }
@@ -64,7 +64,7 @@ encguess - guess character encodings of files
 
 =head1 VERSION
 
-$Id: encguess,v 0.2 2016/08/04 03:15:58 dankogai Exp $
+$Id: encguess,v 0.3 2020/12/02 01:28:17 dankogai Exp $
 
 =head1 SYNOPSIS
 
@@ -81,7 +81,7 @@ show this message and exit.
 =item -s
 
 specify a list of "suspect encoding types" to test, 
-seperated by either C<:> or C<,>
+separated by either C<:> or C<,>
 
 =item -S
 

bin/h2ph

@@ -1,6 +1,6 @@
 #!/home/git/binary-com/perl/bin/perl
  eval 'exec /home/git/binary-com/perl/bin/perl -S $0 ${1+"$@"}'
- if $running_under_some_shell;
+ if 0; # ^ Run only under a shell
 
 BEGIN { pop @INC if $INC[-1] eq '.' }
 

bin/h2xs

@@ -1,6 +1,6 @@
 #!/home/git/binary-com/perl/bin/perl
  eval 'exec /home/git/binary-com/perl/bin/perl -S $0 ${1+"$@"}'
- if $running_under_some_shell;
+ if 0; # ^ Run only under a shell
 
 BEGIN { pop @INC if $INC[-1] eq '.' }
 
@@ -250,7 +250,7 @@ Note that some types of arguments/return-values for functions may
 result in XSUB-declarations/typemap-entries which need
 hand-editing. Such may be objects which cannot be converted from/to a
 pointer (like C<long long>), pointers to functions, or arrays. See
-also the section on L<LIMITATIONS of B<-x>>.
+also the section on L</LIMITATIONS of B<-x>>.
 
 =back
 
@@ -1904,7 +1904,7 @@ WriteMakefile(
  AUTHOR => '$author <$email>',
  #LICENSE => 'perl',
  #Value must be from legacy list of licenses here
- #http://search.cpan.org/perldoc?Module%3A%3ABuild%3A%3AAPI
+ #https://metacpan.org/pod/Module::Build::API
 END
 if (!$opt_X) { # print C stuff, unless XS is disabled
  $opt_F = '' unless defined $opt_F;
@@ -1966,7 +1966,7 @@ $generate_code
 __END__
 gave unexpected error $@
 Please report the circumstances of this bug in h2xs version $H2XS_VERSION
-using the perlbug script.
+using the issue tracker at https://github.com/Perl/perl5/issues.
 EOM
  } else {
  my $fail;
@@ -1987,7 +1987,7 @@ the files $ext$modpname/$constscfname and $ext$modpname/$constsxsfname
 correctly.
 
 Please report the circumstances of this bug in h2xs version $H2XS_VERSION
-using the perlbug script.
+using the issue tracker at https://github.com/Perl/perl5/issues.
 EOM
  } else {
  unlink $constscfname, $constsxsfname;

bin/instmodsh

@@ -1,6 +1,6 @@
 #!/home/git/binary-com/perl/bin/perl
  eval 'exec /home/git/binary-com/perl/bin/perl -S $0 ${1+"$@"}'
- if $running_under_some_shell;
+ if 0; # ^ Run only under a shell
 #!/usr/bin/perl -w
 
 BEGIN { pop @INC if $INC[-1] eq '.' }