Skip to content

Commit

Permalink
upgrade/test_5.36.0_memory (#23)
Browse files Browse the repository at this point in the history 
* apply perl_5.36.0 again
Revert "revert/perl_5.36.0 (#22)"

This reverts commit dc9add0.

* upgrade/test_5.36.0_memory

* trigger tests [ci] 2023-09-05 08:22:34
  • Loading branch information
@chylli-deriv
chylli-deriv authored Sep 7, 2023
1 parent dc9add0 commit 796025a
Show file tree
Hide file tree
Showing 3,091 changed files with 1,036,688 additions and 1,154,696 deletions.
The diff you're trying to view is too large. We only load the first 3000 changed files.
1,368 changes: 0 additions & 1,368 deletions bin/c2ph
View file

This file was deleted.

89 changes: 87 additions & 2 deletions bin/corelist
View file
Original file line number Diff line number Diff line change
@@ -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
Expand All @@ -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>
Expand Down Expand Up @@ -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
Expand Down Expand Up @@ -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};
Expand Down Expand Up @@ -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 ) {
Expand All @@ -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);

Expand All @@ -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;
Expand Down Expand Up @@ -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;
Expand Down
15 changes: 10 additions & 5 deletions bin/cpan
View file
Original file line number Diff line number Diff line change
@@ -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 );
Expand Down Expand Up @@ -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

Expand All @@ -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
Expand Down
15 changes: 9 additions & 6 deletions bin/cpanm
View file

Large diffs are not rendered by default.

49 changes: 17 additions & 32 deletions bin/enc2xs
View file
Original file line number Diff line number Diff line change
@@ -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
Expand All @@ -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
Expand Down Expand Up @@ -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};
Expand Down Expand Up @@ -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";
Expand All @@ -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;
}
Expand Down Expand Up @@ -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
{
Expand Down Expand Up @@ -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;
Expand All @@ -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
Expand All @@ -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;
Expand Down Expand Up @@ -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){
Expand Down
6 changes: 3 additions & 3 deletions bin/encguess
View file
Original file line number Diff line number Diff line change
@@ -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 '.' }
Expand Down Expand Up @@ -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
Expand All @@ -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
Expand Down
2 changes: 1 addition & 1 deletion bin/h2ph
View file
Original file line number Diff line number Diff line change
@@ -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 '.' }

Expand Down
10 changes: 5 additions & 5 deletions bin/h2xs
View file
Original file line number Diff line number Diff line change
@@ -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 '.' }

Expand Down Expand Up @@ -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
Expand Down Expand Up @@ -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;
Expand Down Expand Up @@ -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;
Expand All @@ -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;
Expand Down
2 changes: 1 addition & 1 deletion bin/instmodsh
View file
Original file line number Diff line number Diff line change
@@ -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 '.' }
Expand Down
Loading

0 comments on commit 796025a

Please sign in to comment.