Install perl-5.26.2

Build with rebuild.sh on a clean-room Debian 7 environment.

bin/corelist

@@ -352,10 +352,10 @@ sub module_version {
  print $msg,"\n";
 
  if( defined $ret and exists $Opts{u} ) {
- my $upsream = $Module::CoreList::upstream{$mod};
- $upsream = 'undef' unless $upsream;
- print "upstream: $upsream\n";
- if ( $upsream ne 'blead' ) {
+ my $upstream = $Module::CoreList::upstream{$mod};
+ $upstream = 'undef' unless $upstream;
+ print "upstream: $upstream\n";
+ if ( $upstream ne 'blead' ) {
  my $bugtracker = $Module::CoreList::bug_tracker{$mod};
  $bugtracker = 'unknown' unless $bugtracker;
  print "bug tracker: $bugtracker\n";

bin/cpan

@@ -7,8 +7,8 @@ BEGIN { pop @INC if $INC[-1] eq '.' }
 use strict;
 use vars qw($VERSION);
 
-use App::Cpan '1.60_02';
-$VERSION = '1.61';
+use App::Cpan '1.64';
+$VERSION = '1.64';
 
 my $rc = App::Cpan->run( @ARGV );
 
@@ -25,7 +25,13 @@ cpan - easily interact with CPAN from the command line
  cpan module_name [ module_name ... ]
 
  # with switches, installs modules with extra behavior
- cpan [-cfgimtTw] module_name [ module_name ... ]
+ cpan [-cfFimtTw] module_name [ module_name ... ]
+
+ # use local::lib
+ cpan -I module_name [ module_name ... ]
+
+ # one time mirror override for faster mirrors
+ cpan -p ...
 
  # with just the dot, install from the distribution in the
  # current directory
@@ -34,20 +40,8 @@ cpan - easily interact with CPAN from the command line
  # without arguments, starts CPAN.pm shell
  cpan
 
- # force install modules (usually those that fail tests)
- cpan -f module_name [ module_name ... ]
-
- # install modules but without testing them
- cpan -T module_name [ module_name ... ]
-
- # dump the configuration
- cpan -J
-
- # load a different configuration to install Module::Foo
- cpan -j some/other/file Module::Foo
-
  # without arguments, but some switches
- cpan [-ahrvACDlLO]
+ cpan [-ahpruvACDLOPX]
 
 =head1 DESCRIPTION
 
@@ -77,7 +71,10 @@ Show the F<Changes> files for the specified modules
 
 =item -D module [ module ... ]
 
-Show the module details.
+Show the module details. This prints one line for each out-of-date module
+(meaning, modules locally installed but have newer versions on CPAN).
+Each line has three columns: module name, local version, and CPAN
+version.
 
 =item -f
 
@@ -114,13 +111,15 @@ distribution.
 Print a help message and exit. When you specify C<-h>, it ignores all
 of the other options and arguments.
 
-=item -i
+=item -i module [ module ... ]
 
-Install the specified modules.
+Install the specified modules. With no other switches, this switch
+is implied.
 
 =item -I
 
-Load C<local::lib> (think like C<-I> for loading lib paths).
+Load C<local::lib> (think like C<-I> for loading lib paths). Too bad
+C<-l> was already taken.
 
 =item -j Config.pm
 
@@ -146,23 +145,38 @@ List the modules by the specified authors.
 
 Make the specified modules.
 
+=item -M mirror1,mirror2,...
+
+A comma-separated list of mirrors to use for just this run. The C<-P>
+option can find them for you automatically.
+
+=item -n
+
+Do a dry run, but don't actually install anything. (unimplemented)
+
 =item -O
 
 Show the out-of-date modules.
 
 =item -p
 
-Ping the configured mirrors
+Ping the configured mirrors and print a report
 
 =item -P
 
-Find the best mirrors you could be using (but doesn't configure them just yet)
+Find the best mirrors you could be using and use them for the current
+session.
 
 =item -r
 
 Recompiles dynamically loaded modules with CPAN::Shell->recompile.
 
-=item -t
+=item -s
+
+Drop in the CPAN.pm shell. This command does this automatically if you don't
+specify any arguments.
+
+=item -t module [ module ... ]
 
 Run a `make test` on the specified modules.
 
@@ -190,6 +204,16 @@ UNIMPLEMENTED
 Turn on cpan warnings. This checks various things, like directory permissions,
 and tells you about problems you might have.
 
+=item -x module [ module ... ]
+
+Find close matches to the named modules that you think you might have
+mistyped. This requires the optional installation of Text::Levenshtein or
+Text::Levenshtein::Damerau.
+
+=item -X
+
+Dump all the namespaces to standard output.
+
 =back
 
 =head2 Examples
@@ -215,9 +239,10 @@ and tells you about problems you might have.
  # force install modules ( must use -i )
  cpan -fi CGI::Minimal URI
 
-=head1 ENVIRONMENT VARIABLES
+ # install modules but without testing them
+ cpan -Ti CGI::Minimal URI
 
-=over 4
+=head2 Environment variables
 
 There are several components in CPAN.pm that use environment variables.
 The build tools, L<ExtUtils::MakeMaker> and L<Module::Build> use some,
@@ -230,11 +255,21 @@ Oslo Concensus: L<https://github.com/Perl-Toolchain-Gang/toolchain-site/blob/mas
 
 =over 4
 
+=item NONINTERACTIVE_TESTING
+
+Assume no one is paying attention and skips prompts for distributions
+that do that correctly. C<cpan(1)> sets this to C<1> unless it already
+has a value (even if that value is false).
+
+=item PERL_MM_USE_DEFAULT
+
+Use the default answer for a prompted questions. C<cpan(1)> sets this
+to C<1> unless it already has a value (even if that value is false).
+
 =item CPAN_OPTS
 
-C<cpan> splits this variable on whitespace and prepends that list to C<@ARGV>
-before it processes the command-line arguments. For instance, if you always
-want to use C<local:lib>, you can set C<CPAN_OPTS> to C<-I>.
+As with C<PERL5OPTS>, a string of additional C<cpan(1)> options to
+add to those you specify on the command line.
 
 =item CPANSCRIPT_LOGLEVEL
 
@@ -248,19 +283,6 @@ C<ERROR>, and C<FATAL>. The default is C<INFO>.
 The path to the C<git> binary to use for the Git features. The default
 is C</usr/local/bin/git>.
 
-=item NONINTERACTIVE_TESTING
-
-Assume no one is paying attention and skips prompts for distributions
-that do that correctly. C<cpan(1)> sets this to C<1> unless it already
-has a value (even if that value is false).
-
-=item PERL_MM_USE_DEFAULT
-
-Use the default answer for a prompted questions. C<cpan(1)> sets this
-to C<1> unless it already has a value (even if that value is false).
-
-=back
-
 =back
 
 =head1 EXIT VALUES
@@ -316,7 +338,7 @@ brian d foy, C<< <[email protected]> >>
 
 =head1 COPYRIGHT
 
-Copyright (c) 2001-2014, brian d foy, All Rights Reserved.
+Copyright (c) 2001-2015, brian d foy, All Rights Reserved.
 
 You may redistribute this under the same terms as Perl itself.
 

bin/enc2xs

@@ -14,7 +14,7 @@ use warnings;
 use Getopt::Std;
 use Config;
 my @orig_ARGV = @ARGV;
-our $VERSION = do { my @r = (q$Revision: 2.18 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our $VERSION = do { my @r = (q$Revision: 2.20 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 # These may get re-ordered.
 # RAW is a do_now as inserted by &enter
@@ -126,7 +126,10 @@ my %encode_types = (U => \&encode_U,
  );
 
 # Win32 does not expand globs on command line
-eval "\@ARGV = map(glob(\$_),\@ARGV)" if ($^O eq 'MSWin32');
+if ($^O eq 'MSWin32' and !$ENV{PERL_CORE}) {
+ eval "\@ARGV = map(glob(\$_),\@ARGV)";
+ @ARGV = @orig_ARGV unless @ARGV;
+}
 
 my %opt;
 # I think these are:
@@ -137,6 +140,8 @@ my %opt;
 # -o <output> to specify the output file name (else it's the first arg)
 # -f <inlist> to give a file with a list of input files (else use the args)
 # -n <name> to name the encoding (else use the basename of the input file.
+#Getopt::Long::Configure("bundling");
+#GetOptions(\%opt, qw(C M=s S Q q O o=s f=s n=s v));
 getopts('CM:SQqOo:f:n:v',\%opt);
 
 $opt{M} and make_makefile_pl($opt{M}, @ARGV);
@@ -199,19 +204,25 @@ sub compiler_info {
 # This really should go first, else the die here causes empty (non-erroneous)
 # output files to be written.
 my @encfiles;
-if (exists $opt{'f'}) {
+if (exists $opt{f}) {
  # -F is followed by name of file containing list of filenames
- my $flist = $opt{'f'};
+ my $flist = $opt{f};
  open(FLIST,$flist) || die "Cannot open $flist:$!";
  chomp(@encfiles = <FLIST>);
  close(FLIST);
 } else {
  @encfiles = @ARGV;
 }
 
-my $cname = (exists $opt{'o'}) ? $opt{'o'} : shift(@ARGV);
+my $cname = $opt{o} ? $opt{o} : shift(@ARGV);
+unless ($cname) { #debuging a win32 nmake error-only. works via cmdline
+ print "\nARGV:";
+ print "$_ " for @ARGV;
+ print "\nopt:";
+ print " $_ => ",defined $opt{$_}?$opt{$_}:"undef","\n" for keys %opt;
+}
 chmod(0666,$cname) if -f $cname && !-w $cname;
-open(C,">$cname") || die "Cannot open $cname:$!";
+open(C,">", $cname) || die "Cannot open $cname:$!";
 
 my $dname = $cname;
 my $hname = $cname;
@@ -223,10 +234,10 @@ if ($cname =~ /\.(c|xs)$/i) # VMS may have upcased filenames with DECC$ARGV_PARS
  $doC = 1;
  $dname =~ s/(\.[^\.]*)?$/.exh/;
  chmod(0666,$dname) if -f $cname && !-w $dname;
- open(D,">$dname") || die "Cannot open $dname:$!";
+ open(D,">", $dname) || die "Cannot open $dname:$!";
  $hname =~ s/(\.[^\.]*)?$/.h/;
  chmod(0666,$hname) if -f $cname && !-w $hname;
- open(H,">$hname") || die "Cannot open $hname:$!";
+ open(H,">", $hname) || die "Cannot open $hname:$!";
 
  foreach my $fh (\*C,\*D,\*H)
  {
@@ -472,7 +483,9 @@ sub compile_ucm
  $erep = $attr{'subchar'}; 
  $erep =~ s/^\s+//; $erep =~ s/\s+$//;
  }
- print "Reading $name ($cs)\n";
+ print "Reading $name ($cs)\n"
+ unless defined $ENV{MAKEFLAGS}
+ and $ENV{MAKEFLAGS} =~ /\b(s|silent|quiet)\b/;
  my $nfb = 0;
  my $hfb = 0;
  while (<$fh>)
@@ -758,9 +771,17 @@ sub addstrings
  if ($a->{'Forward'})
  {
  my ($cpp, $static, $sized) = compiler_info(1);
- my $var = $static ? 'static const' : 'extern';
  my $count = $sized ? scalar(@{$a->{'Entries'}}) : '';
- print $fh "$var encpage_t $name\[$count];\n";
+ if ($static) {
+ # we cannot ask Config for d_plusplus since we can override CC=g++-6 on the cmdline
+ print $fh "#ifdef __cplusplus\n"; # -fpermissive since g++-6
+ print $fh "extern encpage_t $name\[$count];\n";
+ print $fh "#else\n";
+ print $fh "static const encpage_t $name\[$count];\n";
+ print $fh "#endif\n";
+ } else {
+ print $fh "extern encpage_t $name\[$count];\n";
+ }
  }
  $a->{'DoneStrings'} = 1;
  foreach my $b (@{$a->{'Entries'}})
@@ -851,9 +872,16 @@ sub outtable
  outtable($fh,$t,$bigname) unless $t->{'Done'};
  }
  my ($cpp, $static) = compiler_info(0);
- my $var = $static ? 'static const ' : '';
- print $fh "\n${var}encpage_t $name\[",
- scalar(@{$a->{'Entries'}}), "] = {\n";
+ my $count = scalar(@{$a->{'Entries'}});
+ if ($static) {
+ print $fh "#ifdef __cplusplus\n"; # -fpermissive since g++-6
+ print $fh "encpage_t $name\[$count] = {\n";
+ print $fh "#else\n";
+ print $fh "static const encpage_t $name\[$count] = {\n";
+ print $fh "#endif\n";
+ } else {
+ print $fh "\nencpage_t $name\[$count] = {\n";
+ }
  foreach my $b (@{$a->{'Entries'}})
  {
  my ($sc,$ec,$out,$t,$end,$l,$fb) = @$b;
@@ -1107,7 +1135,7 @@ sub _print_expand{
  if ((my $d = dirname($dst)) ne '.'){
  -d $d or mkdir $d, 0755 or die "mkdir $d : $!";
  } 
- open my $out, ">$dst" or die "$!";
+ open my $out, ">", $dst or die "$!";
  my $asis = 0;
  while (<$in>){ 
  if (/^#### END_OF_HEADER/){

bin/encguess

@@ -64,7 +64,7 @@ encguess - guess character encodings of files
 
 =head1 VERSION
 
-$Id: encguess,v 0.1 2015/02/05 10:34:19 dankogai Exp $
+$Id: encguess,v 0.2 2016/08/04 03:15:58 dankogai Exp $
 
 =head1 SYNOPSIS
 

bin/h2ph

@@ -85,8 +85,8 @@ while (defined (my $file = next_file())) {
  }
  }
 
- open(IN,"$file") || (($Exit = 1),(warn "Can't open $file: $!\n"),next);
- open(OUT,">$Dest_dir/$outfile") || die "Can't create $outfile: $!\n";
+ open(IN, "<", "$file") || (($Exit = 1),(warn "Can't open $file: $!\n"),next);
+ open(OUT, ">", "$Dest_dir/$outfile") || die "Can't create $outfile: $!\n";
  }
 
  print OUT
@@ -703,7 +703,7 @@ sub queue_includes_from
 
  return if ($file eq "-");
 
- open HEADER, $file or return;
+ open HEADER, "<", $file or return;
  while (defined($line = <HEADER>)) {
  while (/\\$/) { # Handle continuation lines
  chop $line;
@@ -743,7 +743,7 @@ sub build_preamble_if_necessary
  # Can we skip building the preamble file?
  if (-r $preamble) {
  # Extract version number from first line of preamble:
- open PREAMBLE, $preamble or die "Cannot open $preamble: $!";
+ open PREAMBLE, "<", $preamble or die "Cannot open $preamble: $!";
  my $line = <PREAMBLE>;
  $line =~ /(\b\d+\b)/;
  close PREAMBLE or die "Cannot close $preamble: $!";
@@ -754,7 +754,7 @@ sub build_preamble_if_necessary
 
  my (%define) = _extract_cc_defines();
 
- open PREAMBLE, ">$preamble" or die "Cannot open $preamble: $!";
+ open PREAMBLE, ">", $preamble or die "Cannot open $preamble: $!";
  print PREAMBLE "# This file was created by h2ph version $VERSION\n";
  # Prevent non-portable hex constants from warning.
  #