Skip to content

Commit

Permalink
revert/upgrade/test_5.36.0_memory (#24)
Browse files Browse the repository at this point in the history 
* 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
  • Loading branch information
@chylli-deriv
chylli-deriv authored Sep 11, 2023
1 parent 796025a commit a056c9c
Show file tree
Hide file tree
Showing 3,091 changed files with 1,153,115 additions and 1,035,107 deletions.
The diff you're trying to view is too large. We only load the first 3000 changed files.
1,368 changes: 1,368 additions & 0 deletions bin/c2ph
View file

Large diffs are not rendered by default.

89 changes: 2 additions & 87 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 0; # ^ Run only under a shell
if $running_under_some_shell;
#!/usr/bin/perl

=head1 NAME
Expand All @@ -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>
Expand Down Expand Up @@ -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
Expand Down Expand Up @@ -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};
Expand Down Expand Up @@ -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 ) {
Expand All @@ -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);

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

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

Large diffs are not rendered by default.

49 changes: 32 additions & 17 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 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
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.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
Expand Down Expand Up @@ -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};
Expand Down Expand Up @@ -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";
Expand All @@ -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;
}
Expand Down Expand Up @@ -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
{
Expand Down Expand Up @@ -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;
Expand All @@ -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
Expand All @@ -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;
Expand Down Expand Up @@ -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){
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 0; # ^ Run only under a shell
if $running_under_some_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.3 2020/12/02 01:28:17 dankogai Exp $
$Id: encguess,v 0.2 2016/08/04 03:15:58 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,
separated by either C<:> or C<,>
seperated 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 0; # ^ Run only under a shell
if $running_under_some_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 0; # ^ Run only under a shell
if $running_under_some_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
#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;
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 issue tracker at https://github.com/Perl/perl5/issues.
using the perlbug script.
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 issue tracker at https://github.com/Perl/perl5/issues.
using the perlbug script.
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 0; # ^ Run only under a shell
if $running_under_some_shell;
#!/usr/bin/perl -w

BEGIN { pop @INC if $INC[-1] eq '.' }
Expand Down
Loading

0 comments on commit a056c9c

Please sign in to comment.