testing/perl
SHA256
3
0
Fork 0
forked from pool/perl
Code Pull Requests Activity

Accepting request 653081 from devel:languages:perl

Browse Source 
->

OBS-URL: https://build.opensuse.org/request/show/653081
OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl?expand=0&rev=110
This commit is contained in:
Dominique Leuenberger 2018-12-19 12:29:08 +00:00 committed by Git OBS Bridge
commit efb82a9cbf
11 changed files with 262 additions and 197 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
macros.perl
View File

@ -98,15 +98,13 @@ for i in ${all_dir[@]}; do\
continue\ continue\
else\ else\
if [ -d ${base_dir}/${i} ]; then\ if [ -d ${base_dir}/${i} ]; then\
RES=`find "${base_dir}/${i}" -maxdepth 1 -type f`\ if [ "%{perl_vendorlib}/${i}" != "%{perl_vendorarch}" ]; then\
if [ -n "$RES" ]; then\
fgen_dir "%{perl_vendorlib}/${i}"\ fgen_dir "%{perl_vendorlib}/${i}"\
fi\
RES=`find "${base_dir}/${i}" -maxdepth 1 -type f`\
for file in $RES; do\ for file in $RES; do\
fgen_file "%{perl_vendorlib}/${i}/$(basename ${file})"\ fgen_file "%{perl_vendorlib}/${i}/$(basename ${file})"\
done\ done\
else\
fgen_dir "%{perl_vendorlib}/${i}"\
fi\
fi\ fi\
fi\ fi\
done\ done\

2
perl-5.22.0_wrong_rpm_provides.diff
View File

@ -2,7 +2,7 @@
+++ ./cpan/Math-BigInt/lib/Math/BigInt/CalcEmu.pm 2017-08-30 12:16:04.561183753 +0000 +++ ./cpan/Math-BigInt/lib/Math/BigInt/CalcEmu.pm 2017-08-30 12:16:04.561183753 +0000
@@ -6,7 +6,8 @@ use warnings; @@ -6,7 +6,8 @@ use warnings;
our $VERSION = '1.999806'; our $VERSION = '1.999811';
-package Math::BigInt; -package Math::BigInt;
+package Math::BigInt # line break to prevent wrong rpm provides +package Math::BigInt # line break to prevent wrong rpm provides

3
perl-5.26.2.tar.xz
View File

@ -1,3 +0,0 @@
version https://git-lfs.github.com/spec/v1
oid sha256:0f8c0fb1b0db4681adb75c3ba0dd77a0472b1b359b9e80efd79fc27b4352132c
size 11931624

115
perl-5.26.0.dif → perl-5.28.0.dif
View File

@ -1,6 +1,6 @@
--- ./Configure.orig 2017-05-30 09:57:56.000000000 +0000 --- ./Configure.orig 2018-05-21 12:29:23.000000000 +0000
+++ ./Configure 2017-08-30 12:05:40.255184858 +0000 +++ ./Configure 2018-09-26 09:54:14.330562141 +0000
@@ -117,7 +117,7 @@ paths="$paths /usr/5bin /etc /usr/gnu/bi @@ -114,7 +114,7 @@ paths="$paths /usr/5bin /etc /usr/gnu/bi
paths="$paths /opt/gnu/bin /opt/new /opt/new/bin /opt/nbin" paths="$paths /opt/gnu/bin /opt/new /opt/new/bin /opt/nbin"
paths="$paths /sys5.3/bin /sys5.3/usr/bin /bsd4.3/bin /bsd4.3/usr/ucb" paths="$paths /sys5.3/bin /sys5.3/usr/bin /bsd4.3/bin /bsd4.3/usr/ucb"
paths="$paths /bsd4.3/usr/bin /usr/bsd /bsd43/bin /opt/ansic/bin /usr/ccs/bin" paths="$paths /bsd4.3/usr/bin /usr/bsd /bsd43/bin /opt/ansic/bin /usr/ccs/bin"
@ -9,7 +9,7 @@
paths="$paths /sbin /usr/sbin /usr/libexec" paths="$paths /sbin /usr/sbin /usr/libexec"
paths="$paths /system/gnu_library/bin" paths="$paths /system/gnu_library/bin"
@@ -1464,7 +1464,7 @@ loclibpth="/usr/local/lib /opt/local/lib @@ -1448,7 +1448,7 @@ loclibpth="/usr/local/lib /opt/local/lib
loclibpth="$loclibpth /opt/gnu/lib /usr/GNU/lib /opt/GNU/lib" loclibpth="$loclibpth /opt/gnu/lib /usr/GNU/lib /opt/GNU/lib"
: general looking path for locating libraries : general looking path for locating libraries
@ -18,7 +18,7 @@
glibpth="$glibpth /usr/ccs/lib /usr/ucblib /usr/local/lib" glibpth="$glibpth /usr/ccs/lib /usr/ucblib /usr/local/lib"
test -f /usr/shlib/libc.so && glibpth="/usr/shlib $glibpth" test -f /usr/shlib/libc.so && glibpth="/usr/shlib $glibpth"
test -f /shlib/libc.so && glibpth="/shlib $glibpth" test -f /shlib/libc.so && glibpth="/shlib $glibpth"
@@ -2559,7 +2559,7 @@ uname @@ -2545,7 +2545,7 @@ uname
zip zip
" "
pth=`echo $PATH | sed -e "s/$p_/ /g"` pth=`echo $PATH | sed -e "s/$p_/ /g"`
@ -27,25 +27,7 @@
for file in $loclist; do for file in $loclist; do
eval xxx=\$$file eval xxx=\$$file
case "$xxx" in case "$xxx" in
@@ -11963,7 +11963,7 @@ void xxx(int n, ...) @@ -19917,14 +19917,20 @@ int main(int argc, char *argv[])
va_start(args, n);
exit((unsigned long)vsprintf(buf,"%s",args) > 10L);
}
-int main() { xxx(1, "foo"); }
+int main() { xxx(1, "foo"); return 0; }
#else /* I_VARARGS */
@@ -11975,7 +11975,7 @@ va_dcl
va_start(args);
exit((unsigned long)vsprintf(buf,"%s",args) > 10L);
}
-int main() { xxx("foo"); }
+int main() { xxx("foo"); return 0; }
#endif
@@ -20516,14 +20516,20 @@ int main(int argc, char *argv[])
} }
EOCP EOCP
set try set try
@ -66,7 +48,7 @@
i_db=$undef i_db=$undef
case " $libs " in case " $libs " in
*"-ldb "*) *"-ldb "*)
@@ -20564,7 +20570,7 @@ int main() @@ -19965,7 +19971,7 @@ int main()
} }
#endif #endif
EOCP EOCP
@ -75,7 +57,7 @@
if $contains warning try.out >>/dev/null 2>&1 ; then if $contains warning try.out >>/dev/null 2>&1 ; then
db_hashtype='int' db_hashtype='int'
else else
@@ -20607,7 +20613,7 @@ int main() @@ -20008,7 +20014,7 @@ int main()
} }
#endif #endif
EOCP EOCP
@ -84,7 +66,7 @@
if $contains warning try.out >>/dev/null 2>&1 ; then if $contains warning try.out >>/dev/null 2>&1 ; then
db_prefixtype='int' db_prefixtype='int'
else else
@@ -25304,7 +25310,7 @@ passcat='$passcat' @@ -24656,7 +24662,7 @@ passcat='$passcat'
patchlevel='$patchlevel' patchlevel='$patchlevel'
path_sep='$path_sep' path_sep='$path_sep'
perl5='$perl5' perl5='$perl5'
@ -93,8 +75,8 @@
perl_patchlevel='$perl_patchlevel' perl_patchlevel='$perl_patchlevel'
perl_static_inline='$perl_static_inline' perl_static_inline='$perl_static_inline'
perladmin='$perladmin' perladmin='$perladmin'
--- ./SuSE/SuSEconfig.perl.orig 2017-08-30 12:05:40.265184858 +0000 --- ./SuSE/SuSEconfig.perl.orig 2018-09-26 09:54:14.334562132 +0000
+++ ./SuSE/SuSEconfig.perl 2017-08-30 12:05:40.265184858 +0000 +++ ./SuSE/SuSEconfig.perl 2018-09-26 09:54:14.334562132 +0000
@@ -0,0 +1,76 @@ @@ -0,0 +1,76 @@
+#! /bin/bash +#! /bin/bash
+# +#
@ -172,9 +154,9 @@
+# +#
+# end of file SuSEconfig.perl +# end of file SuSEconfig.perl
+# +#
--- ./SuSE/perllocal.SuSE.orig 2017-08-30 12:05:40.264184858 +0000 --- ./SuSE/perllocal.SuSE.orig 2018-09-26 09:54:14.334562132 +0000
+++ ./SuSE/perllocal.SuSE 2017-08-30 12:05:40.264184858 +0000 +++ ./SuSE/perllocal.SuSE 2018-09-26 09:54:14.334562132 +0000
@@ -0,0 +1,84 @@ @@ -0,0 +1,83 @@
+#!/usr/bin/perl +#!/usr/bin/perl
+# Copyright (c) 1998 S.u.S.E. Gmbh Fuerth, Germany. All rights reserved. +# Copyright (c) 1998 S.u.S.E. Gmbh Fuerth, Germany. All rights reserved.
+# +#
@ -258,9 +240,8 @@
+} else { +} else {
+ print "SuSEconfig.perl: Can't write to file $Config{'installarchlib'}/perllocal.pod !\n\n"; + print "SuSEconfig.perl: Can't write to file $Config{'installarchlib'}/perllocal.pod !\n\n";
+} +}
+ --- ./SuSE/sysconfig.suseconfig-perl.orig 2018-09-26 09:54:14.334562132 +0000
--- ./SuSE/sysconfig.suseconfig-perl.orig 2017-08-30 12:05:40.265184858 +0000 +++ ./SuSE/sysconfig.suseconfig-perl 2018-09-26 09:54:14.334562132 +0000
+++ ./SuSE/sysconfig.suseconfig-perl 2017-08-30 12:05:40.265184858 +0000
@@ -0,0 +1,8 @@ @@ -0,0 +1,8 @@
+## Path: System/SuSEconfig +## Path: System/SuSEconfig
+## Type: yesno +## Type: yesno
@ -270,8 +251,8 @@
+# May SuSEconfig modify your perllocal.pod? (yes/no) +# May SuSEconfig modify your perllocal.pod? (yes/no)
+# +#
+CREATE_PERLLOCAL_POD="yes" +CREATE_PERLLOCAL_POD="yes"
--- ./cpan/Compress-Raw-Zlib/config.in.orig 2017-02-28 12:36:42.000000000 +0000 --- ./cpan/Compress-Raw-Zlib/config.in.orig 2018-05-21 12:29:23.000000000 +0000
+++ ./cpan/Compress-Raw-Zlib/config.in 2017-08-30 12:05:40.256184858 +0000 +++ ./cpan/Compress-Raw-Zlib/config.in 2018-09-26 09:54:14.334562132 +0000
@@ -16,9 +16,9 @@ @@ -16,9 +16,9 @@
# Setting the Gzip OS Code # Setting the Gzip OS Code
# #
@ -282,12 +263,12 @@
+BUILD_ZLIB = False +BUILD_ZLIB = False
+INCLUDE = /usr/include +INCLUDE = /usr/include
+LIB = /usr/lib +LIB = /usr/lib
OLD_ZLIB = False OLD_ZLIB = False
GZIP_OS_CODE = AUTO_DETECT GZIP_OS_CODE = AUTO_DETECT
--- ./cpan/Encode/bin/enc2xs.orig 2017-04-19 13:37:05.000000000 +0000
+++ ./cpan/Encode/bin/enc2xs 2017-08-30 12:05:40.257184858 +0000 --- ./cpan/Encode/bin/enc2xs.orig 2018-05-21 12:29:23.000000000 +0000
@@ -1094,7 +1094,7 @@ sub make_configlocal_pm { +++ ./cpan/Encode/bin/enc2xs 2018-09-26 09:54:14.334562132 +0000
@@ -1091,7 +1091,7 @@ sub make_configlocal_pm {
$LocalMod{$enc} ||= $mod; $LocalMod{$enc} ||= $mod;
} }
}; };
@ -296,8 +277,8 @@
$_ModLines = ""; $_ModLines = "";
for my $enc ( sort keys %LocalMod ) { for my $enc ( sort keys %LocalMod ) {
$_ModLines .= $_ModLines .=
--- ./cpan/ExtUtils-Install/lib/ExtUtils/Packlist.pm.orig 2017-04-19 13:37:05.000000000 +0000 --- ./cpan/ExtUtils-Install/lib/ExtUtils/Packlist.pm.orig 2018-05-21 12:29:23.000000000 +0000
+++ ./cpan/ExtUtils-Install/lib/ExtUtils/Packlist.pm 2017-08-30 12:05:40.257184858 +0000 +++ ./cpan/ExtUtils-Install/lib/ExtUtils/Packlist.pm 2018-09-26 09:54:14.334562132 +0000
@@ -207,8 +207,11 @@ foreach my $key (sort(keys(%{$self->{dat @@ -207,8 +207,11 @@ foreach my $key (sort(keys(%{$self->{dat
{ {
if (! -e $key) if (! -e $key)
@ -312,8 +293,8 @@
} }
} }
return(@missing); return(@missing);
--- ./cpan/File-Temp/lib/File/Temp.pm.orig 2017-04-19 13:37:05.000000000 +0000 --- ./cpan/File-Temp/lib/File/Temp.pm.orig 2018-03-20 20:06:35.000000000 +0000
+++ ./cpan/File-Temp/lib/File/Temp.pm 2017-08-30 12:05:40.258184858 +0000 +++ ./cpan/File-Temp/lib/File/Temp.pm 2018-09-26 09:54:14.334562132 +0000
@@ -16,7 +16,7 @@ use Fcntl 1.03; @@ -16,7 +16,7 @@ use Fcntl 1.03;
use IO::Seekable; # For SEEK_* use IO::Seekable; # For SEEK_*
use Errno; use Errno;
@ -323,8 +304,8 @@
# pre-emptively load Carp::Heavy. If we don't when we run out of file # pre-emptively load Carp::Heavy. If we don't when we run out of file
# handles and attempt to call croak() we get an error message telling # handles and attempt to call croak() we get an error message telling
--- ./cpan/Sys-Syslog/t/syslog.t.orig 2017-04-19 13:37:05.000000000 +0000 --- ./cpan/Sys-Syslog/t/syslog.t.orig 2018-05-21 10:44:04.000000000 +0000
+++ ./cpan/Sys-Syslog/t/syslog.t 2017-08-30 12:05:40.259184858 +0000 +++ ./cpan/Sys-Syslog/t/syslog.t 2018-09-26 09:54:14.334562132 +0000
@@ -221,6 +221,7 @@ SKIP: { @@ -221,6 +221,7 @@ SKIP: {
} }
} }
@ -333,9 +314,9 @@
ok( $r, "setlogsock() should return true: '$r'" ); ok( $r, "setlogsock() should return true: '$r'" );
} }
--- ./cpan/libnet/lib/Net/Config.pm.orig 2017-04-19 13:37:05.000000000 +0000 --- ./cpan/libnet/lib/Net/Config.pm.orig 2018-05-21 12:29:23.000000000 +0000
+++ ./cpan/libnet/lib/Net/Config.pm 2017-08-30 12:05:40.259184858 +0000 +++ ./cpan/libnet/lib/Net/Config.pm 2018-09-26 09:54:14.334562132 +0000
@@ -53,7 +53,7 @@ our %NetConfig = ( @@ -51,7 +51,7 @@ our %NetConfig = (
{ {
## no critic (BuiltinFunctions::ProhibitStringyEval) ## no critic (BuiltinFunctions::ProhibitStringyEval)
$^O eq 'MacOS' and eval <<TRY_INTERNET_CONFIG; $^O eq 'MacOS' and eval <<TRY_INTERNET_CONFIG;
@ -344,8 +325,8 @@
{ {
my %nc = ( my %nc = (
--- ./ext/DynaLoader/hints/linux.pl.orig 2017-02-28 12:36:42.000000000 +0000 --- ./ext/DynaLoader/hints/linux.pl.orig 2018-03-20 20:06:36.000000000 +0000
+++ ./ext/DynaLoader/hints/linux.pl 2017-08-30 12:05:40.259184858 +0000 +++ ./ext/DynaLoader/hints/linux.pl 2018-09-26 09:54:14.334562132 +0000
@@ -2,4 +2,7 @@ @@ -2,4 +2,7 @@
# Some Linux releases like to hide their <nlist.h> # Some Linux releases like to hide their <nlist.h>
$self->{CCFLAGS} = $Config{ccflags} . ' -I/usr/include/libelf' $self->{CCFLAGS} = $Config{ccflags} . ' -I/usr/include/libelf'
@ -354,8 +335,8 @@
+# module, so add cccdlflags if we're going for a shared libperl +# module, so add cccdlflags if we're going for a shared libperl
+$self->{CCFLAGS} = ($self->{CCFLAGS} || $Config{ccflags}) . " $Config{cccdlflags}" if $Config{'useshrplib'} eq 'true'; +$self->{CCFLAGS} = ($self->{CCFLAGS} || $Config{ccflags}) . " $Config{cccdlflags}" if $Config{'useshrplib'} eq 'true';
1; 1;
--- ./ext/ODBM_File/Makefile.PL.orig 2017-02-28 12:36:42.000000000 +0000 --- ./ext/ODBM_File/Makefile.PL.orig 2018-03-20 20:06:36.000000000 +0000
+++ ./ext/ODBM_File/Makefile.PL 2017-08-30 12:05:40.260184858 +0000 +++ ./ext/ODBM_File/Makefile.PL 2018-09-26 09:54:14.334562132 +0000
@@ -1,7 +1,7 @@ @@ -1,7 +1,7 @@
use ExtUtils::MakeMaker; use ExtUtils::MakeMaker;
WriteMakefile( WriteMakefile(
@ -365,8 +346,8 @@
XSPROTOARG => '-noprototypes', # XXX remove later? XSPROTOARG => '-noprototypes', # XXX remove later?
VERSION_FROM => 'ODBM_File.pm', VERSION_FROM => 'ODBM_File.pm',
); );
--- ./ext/ODBM_File/hints/linux.pl.orig 2017-02-28 12:36:42.000000000 +0000 --- ./ext/ODBM_File/hints/linux.pl.orig 2018-03-20 20:06:36.000000000 +0000
+++ ./ext/ODBM_File/hints/linux.pl 2017-08-30 12:05:40.259184858 +0000 +++ ./ext/ODBM_File/hints/linux.pl 2018-09-26 09:54:14.334562132 +0000
@@ -1,5 +1,5 @@ @@ -1,5 +1,5 @@
# uses GDBM dbm compatibility feature - at least on SuSE 8.0 # uses GDBM dbm compatibility feature - at least on SuSE 8.0
-$self->{LIBS} = ['-lgdbm']; -$self->{LIBS} = ['-lgdbm'];
@ -374,8 +355,8 @@
# Debian/Ubuntu have libgdbm_compat.so but not this file, # Debian/Ubuntu have libgdbm_compat.so but not this file,
# so linking may fail # so linking may fail
--- ./hints/linux.sh.orig 2017-04-19 13:37:05.000000000 +0000 --- ./hints/linux.sh.orig 2018-05-21 10:44:04.000000000 +0000
+++ ./hints/linux.sh 2017-08-30 12:09:43.999184426 +0000 +++ ./hints/linux.sh 2018-09-26 09:54:14.334562132 +0000
@@ -53,7 +53,7 @@ ignore_versioned_solibs='y' @@ -53,7 +53,7 @@ ignore_versioned_solibs='y'
# BSD compatibility library no longer needed # BSD compatibility library no longer needed
# 'kaffe' has a /usr/lib/libnet.so which is not at all relevant for perl. # 'kaffe' has a /usr/lib/libnet.so which is not at all relevant for perl.
@ -467,8 +448,8 @@
;; ;;
esac esac
EOCBU EOCBU
--- ./installperl.orig 2017-04-19 13:37:05.000000000 +0000 --- ./installperl.orig 2018-05-21 12:29:23.000000000 +0000
+++ ./installperl 2017-08-30 12:05:40.261184858 +0000 +++ ./installperl 2018-09-26 09:54:14.334562132 +0000
@@ -685,7 +685,7 @@ sub installlib { @@ -685,7 +685,7 @@ sub installlib {
return if $name eq 'ExtUtils/MakeMaker/version/regex.pm'; return if $name eq 'ExtUtils/MakeMaker/version/regex.pm';
@ -478,9 +459,9 @@
($name =~ /^(.*)\.(?:pm|pod)$/ && $archpms{$1}) || ($name =~ /^(.*)\.(?:pm|pod)$/ && $archpms{$1}) ||
($name =~ /^(.*)\.(?:h|lib)$/i && ($Is_W32 || $Is_NetWare)) || ($name =~ /^(.*)\.(?:h|lib)$/i && ($Is_W32 || $Is_NetWare)) ||
$name=~/^Config_(heavy|git)\.pl\z/ $name=~/^Config_(heavy|git)\.pl\z/
--- ./lib/perl5db.pl.orig 2017-04-19 13:37:05.000000000 +0000 --- ./lib/perl5db.pl.orig 2018-05-21 12:29:23.000000000 +0000
+++ ./lib/perl5db.pl 2017-08-30 12:05:40.264184858 +0000 +++ ./lib/perl5db.pl 2018-09-26 09:54:14.334562132 +0000
@@ -2363,6 +2363,8 @@ sub _DB__handle_run_command_in_pager_com @@ -2366,6 +2366,8 @@ sub _DB__handle_run_command_in_pager_com
open( OUT, ">&STDOUT" ) # XXX: lost message open( OUT, ">&STDOUT" ) # XXX: lost message
|| _db_warn("Can't restore DB::OUT"); || _db_warn("Can't restore DB::OUT");
} }
@ -489,7 +470,7 @@
next CMD; next CMD;
} ## end unless ($piped = open(OUT,... } ## end unless ($piped = open(OUT,...
@@ -2467,6 +2469,9 @@ sub _DB__at_end_of_every_command { @@ -2470,6 +2472,9 @@ sub _DB__at_end_of_every_command {
$obj->selected(""); $obj->selected("");
} }
@ -499,9 +480,9 @@
# No pipes now. # No pipes now.
$obj->piped(""); $obj->piped("");
} ## end if ($piped) } ## end if ($piped)
--- ./utils/perlbug.PL.orig 2017-04-19 13:37:06.000000000 +0000 --- ./utils/perlbug.PL.orig 2018-05-21 12:29:23.000000000 +0000
+++ ./utils/perlbug.PL 2017-08-30 12:05:40.265184858 +0000 +++ ./utils/perlbug.PL 2018-09-26 09:54:14.334562132 +0000
@@ -1042,6 +1042,7 @@ sub _message_headers { @@ -1050,6 +1050,7 @@ sub _message_headers {
$headers{'Cc'} = $cc if ($cc); $headers{'Cc'} = $cc if ($cc);
$headers{'Message-Id'} = $messageid if ($messageid); $headers{'Message-Id'} = $messageid if ($messageid);
$headers{'Reply-To'} = $from if ($from); $headers{'Reply-To'} = $from if ($from);

3
perl-5.28.1.tar.xz Normal file
View File

@ -0,0 +1,3 @@
version https://git-lfs.github.com/spec/v1
oid sha256:fea7162d4cca940a387f0587b93f6737d884bf74d8a9d7cfd978bc12cd0b202d
size 12372080

10
perl-gdbm-test-no-mmap.diff Normal file
View File

@ -0,0 +1,10 @@
--- ./ext/GDBM_File/t/fatal.t.orig 2018-09-28 14:01:52.697941391 +0000
+++ ./ext/GDBM_File/t/fatal.t 2018-09-28 14:02:35.601833563 +0000
@@ -29,6 +29,7 @@ is((open $fh, "<&=$fileno"), undef,
umask(0);
my %h;
isa_ok(tie(%h, 'GDBM_File', 'Op_dbmx', GDBM_WRCREAT, 0640), 'GDBM_File');
+tied(%h)->setopt(7, 0, length(pack("i", 0))); # turn off mmap mode
isnt((open $fh, "<&=$fileno"), undef, "dup fileno $fileno")
or diag("\$! = $!");

32
perl-incfix.diff
View File

@ -1,25 +1,22 @@
Index: perl.c --- ./perl_inc_macro.h.orig 2018-09-22 22:08:14.492755509 +0200
=================================================================== +++ ./perl_inc_macro.h 2018-09-22 22:07:36.049972877 +0200
--- perl.c.orig @@ -83,10 +83,12 @@
+++ perl.c # define INCPUSH_PRIVLIB_EXP S_incpush_use_sep(aTHX_ STR_WITH_LEN(PRIVLIB_EXP), INCPUSH_CAN_RELOCATE);
@@ -4579,11 +4579,13 @@ S_init_perllib(pTHX)
# endif
#endif #endif
+#if 0 +#if 0
#ifdef PERL_OTHERLIBDIRS #ifdef PERL_OTHERLIBDIRS
S_incpush_use_sep(aTHX_ STR_WITH_LEN(PERL_OTHERLIBDIRS), # define INCPUSH_PERL_OTHERLIBDIRS S_incpush_use_sep(aTHX_ STR_WITH_LEN(PERL_OTHERLIBDIRS), \
INCPUSH_ADD_VERSIONED_SUB_DIRS|INCPUSH_NOT_BASEDIR INCPUSH_ADD_VERSIONED_SUB_DIRS|INCPUSH_NOT_BASEDIR|INCPUSH_CAN_RELOCATE);
|INCPUSH_CAN_RELOCATE);
#endif #endif
+#endif +#endif
if (!TAINTING_get) {
#ifndef VMS /* submacros for INCPUSH_PERL5LIB */
@@ -4625,20 +4627,19 @@ S_init_perllib(pTHX) @@ -133,19 +135,19 @@
#if defined(SITELIB_STEM) && defined(PERL_INC_VERSION_LIST) #if defined(SITELIB_STEM) && defined(PERL_INC_VERSION_LIST)
/* Search for version-specific dirs below here */ /* Search for version-specific dirs below here */
S_incpush_use_sep(aTHX_ STR_WITH_LEN(SITELIB_STEM), # define INCPUSH_SITELIB_STEM S_incpush_use_sep(aTHX_ STR_WITH_LEN(SITELIB_STEM), \
- INCPUSH_ADD_OLD_VERS|INCPUSH_CAN_RELOCATE); - INCPUSH_ADD_OLD_VERS|INCPUSH_CAN_RELOCATE);
+ INCPUSH_ADD_OLD_VERS|INCPUSH_NOT_BASEDIR|INCPUSH_CAN_RELOCATE); + INCPUSH_ADD_OLD_VERS|INCPUSH_NOT_BASEDIR|INCPUSH_CAN_RELOCATE);
#endif #endif
@ -27,16 +24,15 @@ Index: perl.c
#if defined(PERL_VENDORLIB_STEM) && defined(PERL_INC_VERSION_LIST) #if defined(PERL_VENDORLIB_STEM) && defined(PERL_INC_VERSION_LIST)
/* Search for version-specific dirs below here */ /* Search for version-specific dirs below here */
S_incpush_use_sep(aTHX_ STR_WITH_LEN(PERL_VENDORLIB_STEM), # define INCPUSH_PERL_VENDORLIB_STEM S_incpush_use_sep(aTHX_ STR_WITH_LEN(PERL_VENDORLIB_STEM), \
- INCPUSH_ADD_OLD_VERS|INCPUSH_CAN_RELOCATE); - INCPUSH_ADD_OLD_VERS|INCPUSH_CAN_RELOCATE);
+ INCPUSH_ADD_OLD_VERS|INCPUSH_NOT_BASEDIR|INCPUSH_CAN_RELOCATE); + INCPUSH_ADD_OLD_VERS|INCPUSH_NOT_BASEDIR|INCPUSH_CAN_RELOCATE);
#endif #endif
#ifdef PERL_OTHERLIBDIRS #ifdef PERL_OTHERLIBDIRS
S_incpush_use_sep(aTHX_ STR_WITH_LEN(PERL_OTHERLIBDIRS), # define INCPUSH_PERL_OTHERLIBDIRS_ARCHONLY S_incpush_use_sep(aTHX_ STR_WITH_LEN(PERL_OTHERLIBDIRS), \
- INCPUSH_ADD_OLD_VERS|INCPUSH_ADD_ARCHONLY_SUB_DIRS - INCPUSH_ADD_OLD_VERS|INCPUSH_ADD_ARCHONLY_SUB_DIRS|INCPUSH_CAN_RELOCATE);
- |INCPUSH_CAN_RELOCATE);
+ INCPUSH_CAN_RELOCATE); + INCPUSH_CAN_RELOCATE);
#endif #endif
#endif /* !PERL_IS_MINIPERL */

48
perl-revert-caretx.diff Normal file
View File

@ -0,0 +1,48 @@
--- ./caretx.c.orig 2018-05-21 12:29:23.000000000 +0000
+++ ./caretx.c 2018-09-28 14:05:46.785353073 +0000
@@ -56,7 +56,8 @@ Perl_set_caret_X(pTHX) {
SV *const caret_x = GvSV(tmpgv);
#if defined(OS2)
sv_setpv(caret_x, os2_execname(aTHX));
-#elif defined(USE_KERN_PROC_PATHNAME)
+#else
+# ifdef USE_KERN_PROC_PATHNAME
size_t size = 0;
int mib[4];
mib[0] = CTL_KERN;
@@ -76,7 +77,7 @@ Perl_set_caret_X(pTHX) {
return;
}
}
-#elif defined(USE_NSGETEXECUTABLEPATH)
+# elif defined(USE_NSGETEXECUTABLEPATH)
char buf[1];
uint32_t size = sizeof(buf);
@@ -95,7 +96,7 @@ Perl_set_caret_X(pTHX) {
return;
}
}
-#elif defined(HAS_PROCSELFEXE)
+# elif defined(HAS_PROCSELFEXE)
char buf[MAXPATHLEN];
SSize_t len = readlink(PROCSELFEXE_PATH, buf, sizeof(buf) - 1);
/* NOTE: if the length returned by readlink() is sizeof(buf) - 1,
@@ -125,7 +126,7 @@ Perl_set_caret_X(pTHX) {
sv_setpvn(caret_x, buf, len);
return;
}
-#elif defined(WIN32)
+# elif defined(WIN32)
char *ansi;
WCHAR widename[MAX_PATH];
GetModuleFileNameW(NULL, widename, sizeof(widename)/sizeof(WCHAR));
@@ -133,7 +134,7 @@ Perl_set_caret_X(pTHX) {
sv_setpv(caret_x, ansi);
win32_free(ansi);
return;
-#else
+# endif
/* Fallback to this: */
sv_setpv(caret_x, PL_origargv[0]);
#endif

58
perl.changes
View File

@ -1,3 +1,61 @@
-------------------------------------------------------------------
Fri Nov 30 14:12:53 CET 2018 - mls@suse.de
- update to perl-5.28.1
* [CVE-2018-18311] Integer overflow leading to buffer overflow
* [CVE-2018-18312] Heap-buffer-overflow write in S_regatom
* updated Module::CoreList module
-------------------------------------------------------------------
Tue Oct 2 13:03:27 CEST 2018 - mls@suse.de
- simplify perl_gen_filelist macro
-------------------------------------------------------------------
Fri Sep 28 16:06:46 CEST 2018 - mls@suse.de
- fix testing fatal errors in gdbm
new patch: perl-gdbm-test-no-mmap.diff
- fix perl no longer setting $^X if /proc is not mounted
new patch: perl-revert-caretx.diff
-------------------------------------------------------------------
Wed Sep 26 15:01:32 CEST 2018 - mls@suse.de
- change the perl_gen_filelist macro so that the modules no
longer own the perl_vendorarch directory [bnc#1109754]
-------------------------------------------------------------------
Sat Sep 22 19:22:29 UTC 2018 - Dirk Stoecker <opensuse@dstoecker.de>
- update to perl-5.28.0
* Core Enhancements
* Unicode 10.0 is supported
* delete on key/value hash slices
* Experimentally, there are now alphabetic synonyms for some regular expression assertions
* Mixed Unicode scripts are now detectable
* In-place editing with perl -i is now safer
* Initialisation of aggregate state variables
* Full-size inode numbers
* The sprintf %j format size modifier is now available with pre-C99 compilers
* Close-on-exec flag set atomically
* String- and number-specific bitwise ops are no longer experimental
* Locales are now thread-safe on systems that support them
* New read-only predefined variable ${^SAFE_LOCALES}
* Security
* [CVE-2017-12837] Heap buffer overflow in regular expression compiler
* [CVE-2017-12883] Buffer over-read in regular expression parser
* [CVE-2017-12814] $ENV{$key} stack buffer overflow on Windows
* Default Hash Function Change
* Full list of changes: https://metacpan.org/pod/release/XSAWYERX/perl-5.28.0/pod/perldelta.pod
- update perl-5.26.0.dif to perl-5.28.0.dif
- drop patch perl-pp-crypt.patch (included upstream)
-------------------------------------------------------------------
Tue Sep 18 14:14:34 UTC 2018 - schwab@suse.de
- perl-pp-crypt.patch: fix incompatibility with libxcrypt (bsc#1107973)
------------------------------------------------------------------- -------------------------------------------------------------------
Wed May 23 14:12:11 CEST 2018 - mls@suse.de Wed May 23 14:12:11 CEST 2018 - mls@suse.de

73
perl.spec
View File

@ -16,21 +16,21 @@
# #
%define pversion 5.26.2 %define pversion 5.28.1
%global versionlist 5.26.1 %global versionlist 5.28.0
Name: perl Name: perl
Version: 5.26.2 Version: 5.28.1
Release: 0 Release: 0
Summary: The Perl interpreter Summary: The Perl interpreter
License: Artistic-1.0 OR GPL-2.0-or-later License: Artistic-1.0 OR GPL-2.0-or-later
Group: Development/Languages/Perl Group: Development/Languages/Perl
URL: http://www.perl.org/ Url: https://www.perl.org/
Source: http://www.cpan.org/src/5.0/perl-%{version}.tar.xz Source: https://www.cpan.org/src/5.0/perl-%{version}.tar.xz
Source1: %{name}-rpmlintrc Source1: %{name}-rpmlintrc
Source2: macros.perl Source2: macros.perl
Source3: README.macros Source3: README.macros
Source4: baselibs.conf Source4: baselibs.conf
Patch0: perl-5.26.0.dif Patch0: perl-5.28.0.dif
Patch2: perl-regexp-refoverflow.diff Patch2: perl-regexp-refoverflow.diff
Patch3: perl-nroff.diff Patch3: perl-nroff.diff
Patch4: perl-netcmdutf8.diff Patch4: perl-netcmdutf8.diff
@ -45,6 +45,8 @@ Patch11: perl-5.18.2-overflow.diff
Patch12: perl-reproducible.patch Patch12: perl-reproducible.patch
Patch13: perl_skip_flaky_tests_powerpc.patch Patch13: perl_skip_flaky_tests_powerpc.patch
Patch14: posix-sigaction.patch Patch14: posix-sigaction.patch
Patch15: perl-gdbm-test-no-mmap.diff
Patch16: perl-revert-caretx.diff
BuildRequires: db-devel BuildRequires: db-devel
BuildRequires: gdbm-devel BuildRequires: gdbm-devel
BuildRequires: libbz2-devel BuildRequires: libbz2-devel
@ -54,26 +56,25 @@ BuildRequires: zlib-devel
Requires: perl-base = %{version} Requires: perl-base = %{version}
Suggests: perl-doc = %{version} Suggests: perl-doc = %{version}
Provides: perl-500 Provides: perl-500
Provides: perl-Filter-Simple = 0.93 Provides: perl-Filter-Simple = 0.95
Provides: perl(:MODULE_COMPAT_%{pversion}) Provides: perl(:MODULE_COMPAT_%{pversion})
Provides: perl(:MODULE_COMPAT_5.26.1) Obsoletes: perl-Filter-Simple <= 0.95
Obsoletes: perl-Filter-Simple <= 0.93 Provides: perl-I18N-LangTags = 0.43
Provides: perl-I18N-LangTags = 0.42 Obsoletes: perl-I18N-LangTags <= 0.43
Obsoletes: perl-I18N-LangTags <= 0.42
Provides: perl-MIME-Base64 = 3.15 Provides: perl-MIME-Base64 = 3.15
Obsoletes: perl-MIME-Base64 <= 3.15 Obsoletes: perl-MIME-Base64 <= 3.15
Provides: perl-Storable = 2.62 Provides: perl-Storable = 3.08
Obsoletes: perl-Storable <= 2.62 Obsoletes: perl-Storable <= 3.08
Provides: perl-Test-Simple = 1.302073 Provides: perl-Test-Simple = 1.302133
Obsoletes: perl-Test-Simple <= 1.302073 Obsoletes: perl-Test-Simple <= 1.302133
Provides: perl-Text-Balanced = 2.03 Provides: perl-Text-Balanced = 2.03
Obsoletes: perl-Text-Balanced <= 2.03 Obsoletes: perl-Text-Balanced <= 2.03
Provides: perl-Time-HiRes = 1.9741 Provides: perl-Time-HiRes = 1.9759
Obsoletes: perl-Time-HiRes <= 1.9741 Obsoletes: perl-Time-HiRes <= 1.9759
Provides: perl-libnet = 3.08 Provides: perl-libnet = 3.11
Obsoletes: perl-libnet <= 3.08 Obsoletes: perl-libnet <= 3.11
Provides: perl-Compress-Raw-Zlib = 2.074 Provides: perl-Compress-Raw-Zlib = 2.076
Obsoletes: perl-Compress-Raw-Zlib <= 2.074 Obsoletes: perl-Compress-Raw-Zlib <= 2.076
Provides: perl-Compress-Zlib = 2.074 Provides: perl-Compress-Zlib = 2.074
Obsoletes: perl-Compress-Zlib <= 2.074 Obsoletes: perl-Compress-Zlib <= 2.074
Provides: perl-IO-Compress-Base = 2.074 Provides: perl-IO-Compress-Base = 2.074
@ -82,34 +83,34 @@ Provides: perl-IO-Compress-Zlib = 2.074
Obsoletes: perl-IO-Compress-Zlib <= 2.074 Obsoletes: perl-IO-Compress-Zlib <= 2.074
Provides: perl-IO-Zlib = 1.10 Provides: perl-IO-Zlib = 1.10
Obsoletes: perl-IO-Zlib <= 1.10 Obsoletes: perl-IO-Zlib <= 1.10
Provides: perl-Archive-Tar = 2.24 Provides: perl-Archive-Tar = 2.30
Obsoletes: perl-Archive-Tar <= 2.24 Obsoletes: perl-Archive-Tar <= 2.30
Provides: perl-Locale-Maketext-Simple = 0.21 Provides: perl-Locale-Maketext-Simple = 0.21
Obsoletes: perl-Locale-Maketext-Simple <= 0.21 Obsoletes: perl-Locale-Maketext-Simple <= 0.21
Provides: perl-Pod-Escapes = 1.07 Provides: perl-Pod-Escapes = 1.07
Obsoletes: perl-Pod-Escapes <= 1.07 Obsoletes: perl-Pod-Escapes <= 1.07
Provides: perl-Pod-Simple = 3.35 Provides: perl-Pod-Simple = 3.35
Obsoletes: perl-Pod-Simple <= 3.35 Obsoletes: perl-Pod-Simple <= 3.35
Provides: perl-ExtUtils-ParseXS = 3.34 Provides: perl-ExtUtils-ParseXS = 3.39
Obsoletes: perl-ExtUtils-ParseXS <= 3.34 Obsoletes: perl-ExtUtils-ParseXS <= 3.39
Provides: perl-CPAN-Meta = 2.150010 Provides: perl-CPAN-Meta = 2.150010
Obsoletes: perl-CPAN-Meta <= 2.150010 Obsoletes: perl-CPAN-Meta <= 2.150010
Provides: perl-CPAN-Meta-YAML = 0.018 Provides: perl-CPAN-Meta-YAML = 0.018
Obsoletes: perl-CPAN-Meta-YAML <= 0.018 Obsoletes: perl-CPAN-Meta-YAML <= 0.018
Provides: perl-ExtUtils-CBuilder = 0.280225 Provides: perl-ExtUtils-CBuilder = 0.280230
Obsoletes: perl-ExtUtils-CBuilder <= 0.280225 Obsoletes: perl-ExtUtils-CBuilder <= 0.280230
Provides: perl-IO-Socket-IP = 0.38 Provides: perl-IO-Socket-IP = 0.39
Obsoletes: perl-IO-Socket-IP <= 0.38 Obsoletes: perl-IO-Socket-IP <= 0.39
Provides: perl-Parse-CPAN-Meta = 2.150010 Provides: perl-Parse-CPAN-Meta = 2.150010
Obsoletes: perl-Parse-CPAN-Meta <= 2.150010 Obsoletes: perl-Parse-CPAN-Meta <= 2.150010
Provides: perl-PathTools = 3.63 Provides: perl-PathTools = 3.63
Obsoletes: perl-PathTools <= 3.63 Obsoletes: perl-PathTools <= 3.63
Provides: perl-autodie = 2.29 Provides: perl-autodie = 2.29
Obsoletes: perl-autodie <= 2.29 Obsoletes: perl-autodie <= 2.29
Provides: perl-Test-Harness = 3.38 Provides: perl-Test-Harness = 3.42
Obsoletes: perl-Test-Harness <= 3.38 Obsoletes: perl-Test-Harness <= 3.42
Provides: perl-version = 0.9917 Provides: perl-version = 0.9923
Obsoletes: perl-version <= 0.9917 Obsoletes: perl-version <= 0.9923
%if "%{version}" != "%{pversion}" %if "%{version}" != "%{pversion}"
Provides: perl = %{pversion}-%{release} Provides: perl = %{pversion}-%{release}
%endif %endif
@ -130,7 +131,7 @@ series.
Summary: The Perl interpreter Summary: The Perl interpreter
Group: Development/Languages/Perl Group: Development/Languages/Perl
Provides: perl-Digest Provides: perl-Digest
Provides: perl-Digest-MD5 Provides: perl-Digest-MD5 = 2.55
%if "%{version}" != "%{pversion}" %if "%{version}" != "%{pversion}"
Provides: perl-base = %{pversion}-%{release} Provides: perl-base = %{pversion}-%{release}
%endif %endif
@ -172,12 +173,14 @@ cp -p %{SOURCE3} .
%patch7 %patch7
%ifarch ppc ppc64 ppc64le %ifarch ppc ppc64 ppc64le
%patch8 -p1 %patch8 -p1
%patch13 -p1 %patch13
%endif %endif
%patch9 %patch9
%patch11 %patch11
%patch12 -p1 %patch12 -p1
%patch14 -p1 %patch14 -p1
%patch15
%patch16
%build %build
cp -a lib savelib cp -a lib savelib

103
perl_skip_flaky_tests_powerpc.patch
View File

@ -6,22 +6,9 @@ skip flaky tests powerpc
as bypass https://bugzilla.suse.com/show_bug.cgi?id=1063176 as bypass https://bugzilla.suse.com/show_bug.cgi?id=1063176
Signed-off-by: Michel Normand <normand@linux.vnet.ibm.com> Signed-off-by: Michel Normand <normand@linux.vnet.ibm.com>
---
cpan/Memoize/t/expmod_t.t | 1 +
dist/Time-HiRes/t/alarm.t | 2 +-
dist/Time-HiRes/t/clock.t | 2 +-
dist/Time-HiRes/t/nanosleep.t | 2 +-
dist/Time-HiRes/t/usleep.t | 2 +-
t/op/alarm.t | 1 +
t/op/sigsystem.t | 1 +
t/op/sselect.t | 2 ++
t/op/stat.t | 1 +
9 files changed, 10 insertions(+), 4 deletions(-)
Index: perl-5.26.1/cpan/Memoize/t/expmod_t.t --- ./cpan/Memoize/t/expmod_t.t.orig 2018-03-20 20:06:35.000000000 +0000
=================================================================== +++ ./cpan/Memoize/t/expmod_t.t 2018-09-26 11:05:08.908018123 +0000
--- perl-5.26.1.orig/cpan/Memoize/t/expmod_t.t
+++ perl-5.26.1/cpan/Memoize/t/expmod_t.t
@@ -1,5 +1,6 @@ @@ -1,5 +1,6 @@
#!/usr/bin/perl #!/usr/bin/perl
@ -29,10 +16,8 @@ Index: perl-5.26.1/cpan/Memoize/t/expmod_t.t
use lib '..'; use lib '..';
use Memoize; use Memoize;
BEGIN { BEGIN {
Index: perl-5.26.1/dist/Time-HiRes/t/alarm.t --- ./dist/Time-HiRes/t/alarm.t.orig 2018-09-26 11:04:59.936040917 +0000
=================================================================== +++ ./dist/Time-HiRes/t/alarm.t 2018-09-26 11:05:08.908018123 +0000
--- perl-5.26.1.orig/dist/Time-HiRes/t/alarm.t
+++ perl-5.26.1/dist/Time-HiRes/t/alarm.t
@@ -1,6 +1,6 @@ @@ -1,6 +1,6 @@
use strict; use strict;
@ -41,23 +26,29 @@ Index: perl-5.26.1/dist/Time-HiRes/t/alarm.t
BEGIN { push @INC, '.' } BEGIN { push @INC, '.' }
use t::Watchdog; use t::Watchdog;
Index: perl-5.26.1/dist/Time-HiRes/t/nanosleep.t --- ./dist/Time-HiRes/t/clock.t.orig 2018-09-26 11:04:59.936040917 +0000
=================================================================== +++ ./dist/Time-HiRes/t/clock.t 2018-09-26 11:05:08.908018123 +0000
--- perl-5.26.1.orig/dist/Time-HiRes/t/nanosleep.t @@ -1,6 +1,6 @@
+++ perl-5.26.1/dist/Time-HiRes/t/nanosleep.t use strict;
@@ -8,7 +8,7 @@ BEGIN {
}
}
-use Test::More tests => 3; -use Test::More tests => 5;
+use Test::More skip_all => "ppc workers are too busy"; +use Test::More skip_all => "ppc workers are too busy";
BEGIN { push @INC, '.' } BEGIN { push @INC, '.' }
use t::Watchdog; use t::Watchdog;
Index: perl-5.26.1/dist/Time-HiRes/t/usleep.t --- ./dist/Time-HiRes/t/nanosleep.t.orig 2018-09-26 11:05:08.908018123 +0000
=================================================================== +++ ./dist/Time-HiRes/t/nanosleep.t 2018-09-26 11:06:17.203844610 +0000
--- perl-5.26.1.orig/dist/Time-HiRes/t/usleep.t @@ -8,7 +8,7 @@ BEGIN {
+++ perl-5.26.1/dist/Time-HiRes/t/usleep.t }
}
-use Test::More tests => 4;
+use Test::More skip_all => "ppc workers are too busy";
BEGIN { push @INC, '.' }
use t::Watchdog;
--- ./dist/Time-HiRes/t/usleep.t.orig 2018-09-26 11:04:59.936040917 +0000
+++ ./dist/Time-HiRes/t/usleep.t 2018-09-26 11:05:08.908018123 +0000
@@ -8,7 +8,7 @@ BEGIN { @@ -8,7 +8,7 @@ BEGIN {
} }
} }
@ -67,10 +58,8 @@ Index: perl-5.26.1/dist/Time-HiRes/t/usleep.t
BEGIN { push @INC, '.' } BEGIN { push @INC, '.' }
use t::Watchdog; use t::Watchdog;
Index: perl-5.26.1/t/op/alarm.t --- ./t/op/alarm.t.orig 2018-05-21 10:44:04.000000000 +0000
=================================================================== +++ ./t/op/alarm.t 2018-09-26 11:05:08.908018123 +0000
--- perl-5.26.1.orig/t/op/alarm.t
+++ perl-5.26.1/t/op/alarm.t
@@ -11,6 +11,7 @@ use Config; @@ -11,6 +11,7 @@ use Config;
if ( !$Config{d_alarm} ) { if ( !$Config{d_alarm} ) {
skip_all("alarm() not implemented on this platform"); skip_all("alarm() not implemented on this platform");
@ -79,10 +68,8 @@ Index: perl-5.26.1/t/op/alarm.t
plan tests => 5; plan tests => 5;
my $Perl = which_perl(); my $Perl = which_perl();
Index: perl-5.26.1/t/op/sigsystem.t --- ./t/op/sigsystem.t.orig 2018-03-20 20:06:37.000000000 +0000
=================================================================== +++ ./t/op/sigsystem.t 2018-09-26 11:05:08.908018123 +0000
--- perl-5.26.1.orig/t/op/sigsystem.t
+++ perl-5.26.1/t/op/sigsystem.t
@@ -11,6 +11,7 @@ use strict; @@ -11,6 +11,7 @@ use strict;
use constant TRUE => ($^X, '-e', 'exit 0'); use constant TRUE => ($^X, '-e', 'exit 0');
use Data::Dumper; use Data::Dumper;
@ -91,23 +78,9 @@ Index: perl-5.26.1/t/op/sigsystem.t
plan tests => 4; plan tests => 4;
SKIP: { SKIP: {
Index: perl-5.26.1/t/op/stat.t --- ./t/op/sselect.t.orig 2018-05-21 12:29:23.000000000 +0000
=================================================================== +++ ./t/op/sselect.t 2018-09-26 11:05:08.908018123 +0000
--- perl-5.26.1.orig/t/op/stat.t @@ -13,6 +13,8 @@ BEGIN {
+++ perl-5.26.1/t/op/stat.t
@@ -7,6 +7,7 @@ BEGIN {
}
use Config;
+skip_all("ppc workers are too busy");
my ($Null, $Curdir);
if(eval {require File::Spec; 1}) {
Index: perl-5.26.1/t/op/sselect.t
===================================================================
--- perl-5.26.1.orig/t/op/sselect.t
+++ perl-5.26.1/t/op/sselect.t
@@ -11,6 +11,8 @@ BEGIN {
skip_all("Win32 miniperl has no socket select") skip_all("Win32 miniperl has no socket select")
if $^O eq "MSWin32" && is_miniperl(); if $^O eq "MSWin32" && is_miniperl();
@ -116,15 +89,13 @@ Index: perl-5.26.1/t/op/sselect.t
plan (16); plan (16);
my $blank = ""; my $blank = "";
Index: perl-5.26.1/dist/Time-HiRes/t/clock.t --- ./t/op/stat.t.orig 2018-05-21 12:29:23.000000000 +0000
=================================================================== +++ ./t/op/stat.t 2018-09-26 11:05:08.908018123 +0000
--- perl-5.26.1.orig/dist/Time-HiRes/t/clock.t @@ -9,6 +9,7 @@ BEGIN {
+++ perl-5.26.1/dist/Time-HiRes/t/clock.t
@@ -1,6 +1,6 @@
use strict; use strict;
use warnings;
use Config;
+skip_all("ppc workers are too busy");
-use Test::More tests => 5; my ($Null, $Curdir);
+use Test::More skip_all => "ppc workers are too busy"; if(eval {require File::Spec; 1}) {
BEGIN { push @INC, '.' }
use t::Watchdog;