revert/upgrade/test_5.36.0_memory (#24)

* Revert "upgrade/test_5.36.0_memory (#23)"

This reverts commit 796025a.

* revert/upgrade/test_5.36.0_memory

* trigger tests [ci] 2023-09-11 06:13:46

* trigger tests [ci] 2023-09-11 06:33:45

* trigger tests [ci] 2023-09-11 06:41:48

Author: chylli-deriv

bin/c2ph

@@ -1,6 +1,6 @@
 #!/home/git/binary-com/perl/bin/perl
     eval 'exec /home/git/binary-com/perl/bin/perl -S $0 ${1+"$@"}'
-	if 0; # ^ Run only under a shell
+	if $running_under_some_shell;
 #!/usr/bin/perl
 
 =head1 NAME
@@ -17,8 +17,6 @@ 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>
@@ -118,15 +116,6 @@ 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
@@ -156,7 +145,7 @@ my %Opts;
 
 GetOptions(
     \%Opts,
-    qw[ help|?! man! r|release:s v|version:s a! d diff|D utils feature|f u|upstream ]
+    qw[ help|?! man! r|release:s v|version:s a! d diff|D feature|f u|upstream ]
 );
 
 pod2usage(1) if $Opts{help};
@@ -195,12 +184,6 @@ 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 ) {
@@ -227,15 +210,7 @@ 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);
 
@@ -255,25 +230,6 @@ 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;
@@ -411,47 +367,6 @@ 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/corelist

@@ -1,18 +1,13 @@
 #!/home/git/binary-com/perl/bin/perl
     eval 'exec /home/git/binary-com/perl/bin/perl -S $0 ${1+"$@"}'
-	if 0; # ^ Run only under a shell
+	if $running_under_some_shell;
 #!/usr/local/bin/perl
 
 BEGIN { pop @INC if $INC[-1] eq '.' }
 use strict;
 use vars qw($VERSION);
 
-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";
-}
+use App::Cpan '1.64';
 $VERSION = '1.64';
 
 my $rc = App::Cpan->run( @ARGV );
@@ -254,9 +249,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 Consensus: L<https://github.com/Perl-Toolchain-Gang/toolchain-site/blob/master/lancaster-consensus.md>
+Lancaster Concensus: L<https://github.com/Perl-Toolchain-Gang/toolchain-site/blob/master/lancaster-consensus.md>
 
-Oslo Consensus: L<https://github.com/Perl-Toolchain-Gang/toolchain-site/blob/master/oslo-consensus.md>
+Oslo Concensus: L<https://github.com/Perl-Toolchain-Gang/toolchain-site/blob/master/oslo-consensus.md>
 
 =over 4
 
@@ -273,7 +268,7 @@ to C<1> unless it already has a value (even if that value is false).
 
 =item CPAN_OPTS
 
-As with C<PERL5OPT>, a string of additional C<cpan(1)> options to
+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

bin/cpan

@@ -1,6 +1,6 @@
 #!/home/git/binary-com/perl/bin/perl
     eval 'exec /home/git/binary-com/perl/bin/perl -S $0 ${1+"$@"}'
-	if 0; # ^ Run only under a shell
+	if $running_under_some_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.24 $ =~ /\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
@@ -147,7 +147,6 @@ 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};
@@ -252,12 +251,7 @@ if ($cname =~ /\.(c|xs)$/i) # VMS may have upcased filenames with DECC$ARGV_PARS
 END
   }
 
-  if ($cname =~ /\.c$/i && $Config{ccname} eq "gcc")
-   {
-    print C qq(#pragma GCC diagnostic ignored "-Wc++-compat"\n);
-   }
-
-  if ($cname =~ /\.xs$/i)
+  if ($cname =~ /(\w+)\.xs$/)
    {
     print C "#define PERL_NO_GET_CONTEXT\n";
     print C "#include <EXTERN.h>\n";
@@ -267,15 +261,15 @@ END
   print C "#include \"encode.h\"\n\n";
 
  }
-elsif ($cname =~ /\.enc$/i)
+elsif ($cname =~ /\.enc$/)
  {
   $doEnc = 1;
  }
-elsif ($cname =~ /\.ucm$/i)
+elsif ($cname =~ /\.ucm$/)
  {
   $doUcm = 1;
  }
-elsif ($cname =~ /\.pet$/i)
+elsif ($cname =~ /\.pet$/)
  {
   $doPet = 1;
  }
@@ -923,7 +917,24 @@ sub decode_U
 }
 
 my @uname;
-sub char_names{} # cf. https://rt.cpan.org/Ticket/Display.html?id=132471
+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 output_ucm_page
 {
@@ -1030,7 +1041,8 @@ sub find_e2x{
 
 sub make_makefile_pl
 {
-    eval { require Encode } or die "You need to install Encode to use enc2xs -M\nerror: $@\n";
+    eval { require Encode; };
+    $@ and die "You need to install Encode to use enc2xs -M\nerror: $@\n";
     # our used for variable expansion
     $_Enc2xs = $0;
     $_Version = $VERSION;
@@ -1054,7 +1066,8 @@ use vars qw(
         );
 
 sub make_configlocal_pm {
-    eval { require Encode } or die "Unable to require Encode: $@\n";
+    eval { require Encode; };
+    $@ and die "Unable to require Encode: $@\n";
     eval { require File::Spec; };
 
     # our used for variable expantion
@@ -1074,7 +1087,8 @@ sub make_configlocal_pm {
 	$mod =~ s/.*\bEncode\b/Encode/o;
 	$mod =~ s/\.pm\z//o;
 	$mod =~ s,/,::,og;
-	eval qq{ require $mod; } or return;
+	eval qq{ require $mod; };
+        return if $@;
         warn qq{ require $mod;\n};
 	for my $enc ( Encode->encodings() ) {
 	    no warnings;
@@ -1108,7 +1122,8 @@ sub _mkversion{
 }
 
 sub _print_expand{
-    eval { require File::Basename } or die "File::Basename needed.  Are you on miniperl?;\nerror: $@\n";
+    eval { require File::Basename; };
+    $@ and die "File::Basename needed.  Are you on miniperl?;\nerror: $@\n";
     File::Basename->import();
     my ($src, $dst, $clobber) = @_;
     if (!$clobber and -e $dst){

bin/cpanm

@@ -1,6 +1,6 @@
 #!/home/git/binary-com/perl/bin/perl
     eval 'exec /home/git/binary-com/perl/bin/perl -S $0 ${1+"$@"}'
-	if 0; # ^ Run only under a shell
+	if $running_under_some_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.3 2020/12/02 01:28:17 dankogai Exp $
+$Id: encguess,v 0.2 2016/08/04 03:15:58 dankogai Exp $
 
 =head1 SYNOPSIS
 
@@ -81,7 +81,7 @@ show this message and exit.
 =item -s
 
 specify a list of "suspect encoding types" to test, 
-separated by either C<:> or C<,>
+seperated by either C<:> or C<,>
 
 =item -S
 

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 0; # ^ Run only under a shell
+	if $running_under_some_shell;
 
 BEGIN { pop @INC if $INC[-1] eq '.' }
 

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 0; # ^ Run only under a shell
+	if $running_under_some_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
-    #https://metacpan.org/pod/Module::Build::API
+    #http://search.cpan.org/perldoc?Module%3A%3ABuild%3A%3AAPI
 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 issue tracker at https://github.com/Perl/perl5/issues.
+using the perlbug script.
 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 issue tracker at https://github.com/Perl/perl5/issues.
+using the perlbug script.
 EOM
     } else {
       unlink $constscfname, $constsxsfname;

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 0; # ^ Run only under a shell
+	if $running_under_some_shell;
 #!/usr/bin/perl -w
 
 BEGIN { pop @INC if $INC[-1] eq '.' }