pool/perl
SHA256
4
0
Fork 2
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Compare commits

merge into: pool:factory
Branches Tags
pool:factory
pool:devel
rpm:devel
rpm:factory
...
pull from: rpm:factory
Branches Tags
rpm:devel
rpm:factory
pool:factory
pool:devel

No commits in common. "factory" and "factory" have entirely different histories.
factory ... factory

19 changed files with 72 additions and 978 deletions
Show Stats Expand all files Collapse all files

1
.gitignore vendored Normal file
View File

@ -0,0 +1 @@
.osc

21
MD5SUMS
View File

@ -1,21 +0,0 @@
054437793846edb64d74fb712770cc66 README.macros
b939a1f05981311bac5aee7b53cb83a0 baselibs.conf
0baeaa12455489fa69f6aef9bb1ff147 macros.perl
36a323a33c4e8af755ade1df73411bf3 perl-5.10.0-regexp.diff
aa4941dc3274d19c51af1feebe5394c7 perl-5.10.0-warn.diff
7656a644321fc11d27ec1c25d2e1702a perl-5.10.0.dif
40f14e31f24e7d6413e45151a0db6ec6 perl-5.10.0.tar.bz2
69955c0deb8ce4db77186a4f97e0d770 perl-errorcount.diff
a8b3e34757d95a39fb534398c1ae2565 perl-fast-syslog.diff
7d7d26b15449082e90ea3e99d79c9559 perl-file_path_rmtree_chmod.diff
3057a17cdb04e171682a00e20bc0343b perl-file_path_rmtree_chmod_again.diff
ab2d097f302f8a56a5737a01b90b7769 perl-fix_dbmclose_call.patch
1156a2bf6d0f7f2e949e85800db51d33 perl-gracefull-net-ftp.diff
6c4392a7a13faf2ea0936a9d2f6f3f84 perl-netcmdutf8.diff
522f7c04bcaa3a925ddcab9accc73b6f perl-nroff.diff
dae510161799f950c9128504489199b7 perl-regexp-refoverflow.diff
61c64ed10181df10ba3af681465040d7 perl-rpmlintrc
f29b02eab1b484bd63734c8ae13b1577 perl-zlib-growoob.diff
64541545589c5bb7b8c669e8399b7373 perl.changes
c7a54f8bd0b1ce840a0ba892b805d71b perl.spec
d41d8cd98f00b204e9800998ecf8427e ready

1
MD5SUMS.meta
View File

@ -1 +0,0 @@
cdd126476c980a2c57a811a6d82c3b42 MD5SUMS

70
perl-5.10.0-regexp.diff
View File

@ -1,70 +0,0 @@
Change 33324 by demerphq@demerphq-gemini on 2008/02/17 15:39:22
Fix perlbug 50114 and document what the code does a bit better
Affected files ...
... //depot/perl/regcomp.c#650 edit
... //depot/perl/t/op/re_tests#129 edit
Differences ...
==== //depot/perl/regcomp.c#650 (text) ====
--- regcomp.c.orig
+++ regcomp.c
@@ -4462,7 +4462,17 @@
regnode *first= scan;
regnode *first_next= regnext(first);
- /* Skip introductions and multiplicators >= 1. */
+ /*
+ * Skip introductions and multiplicators >= 1
+ * so that we can extract the 'meat' of the pattern that must
+ * match in the large if() sequence following.
+ * NOTE that EXACT is NOT covered here, as it is normally
+ * picked up by the optimiser separately.
+ *
+ * This is unfortunate as the optimiser isnt handling lookahead
+ * properly currently.
+ *
+ */
while ((OP(first) == OPEN && (sawopen = 1)) ||
/* An OR of *one* alternative - should not happen now. */
(OP(first) == BRANCH && OP(first_next) != BRANCH) ||
@@ -4474,16 +4484,17 @@
(PL_regkind[OP(first)] == CURLY && ARG1(first) > 0) ||
(OP(first) == NOTHING && PL_regkind[OP(first_next)] != END ))
{
-
+ /*
+ * the only op that could be a regnode is PLUS, all the rest
+ * will be regnode_1 or regnode_2.
+ *
+ */
if (OP(first) == PLUS)
sawplus = 1;
else
first += regarglen[OP(first)];
- if (OP(first) == IFMATCH) {
- first = NEXTOPER(first);
- first += EXTRA_STEP_2ARGS;
- } else /* XXX possible optimisation for /(?=)/ */
- first = NEXTOPER(first);
+
+ first = NEXTOPER(first);
first_next= regnext(first);
}
==== //depot/perl/t/op/re_tests#129 (text) ====
--- t/op/re_tests.orig
+++ t/op/re_tests
@@ -1341,3 +1341,6 @@
.*\z foo\n y - -
^(?:(\d)x)?\d$ 1 y ${\(defined($1)?1:0)} 0
.*?(?:(\w)|(\w))x abx y $1-$2 b-
+
+0{50} 000000000000000000000000000000000000000000000000000 y - -
+

20
perl-5.10.0-warn.diff
View File

@ -1,20 +0,0 @@
--- Configure
+++ Configure
@@ -10860,7 +10860,7 @@
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 */
@@ -10872,7 +10872,7 @@
va_start(args);
exit((unsigned long)vsprintf(buf,"%s",args) > 10L);
}
-int main() { xxx("foo"); }
+int main() { xxx("foo"); return 0; }
#endif

652
perl-5.10.0.dif
View File

@ -1,652 +0,0 @@
--- ./Configure.orig 2007-12-18 10:47:07.000000000 +0000
+++ ./Configure 2008-01-07 09:33:53.000000000 +0000
@@ -110,7 +110,7 @@ paths="$paths /usr/5bin /etc /usr/gnu/bi
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 /bsd4.3/usr/bin /usr/bsd /bsd43/bin /opt/ansic/bin /usr/ccs/bin"
-paths="$paths /etc /usr/lib /usr/ucblib /lib /usr/ccs/lib"
+paths="$paths /etc /usr/lib /usr/lib64 /usr/ucblib /lib /usr/ccs/lib"
paths="$paths /sbin /usr/sbin /usr/libexec"
paths="$paths /system/gnu_library/bin"
@@ -1277,7 +1277,7 @@ loclibpth="/usr/local/lib /opt/local/lib
loclibpth="$loclibpth /opt/gnu/lib /usr/GNU/lib /opt/GNU/lib"
: general looking path for locating libraries
-glibpth="/lib /usr/lib $xlibpth"
+glibpth="/lib /usr/lib /lib64 /usr/lib64 $xlibpth"
glibpth="$glibpth /usr/ccs/lib /usr/ucblib /usr/local/lib"
test -f /usr/shlib/libc.so && glibpth="/usr/shlib $glibpth"
test -f /shlib/libc.so && glibpth="/shlib $glibpth"
@@ -2340,7 +2340,7 @@ uname
zip
"
pth=`echo $PATH | sed -e "s/$p_/ /g"`
-pth="$pth /lib /usr/lib"
+pth="$pth /lib /usr/lib /lib64 /usr/lib64"
for file in $loclist; do
eval xxx=\$$file
case "$xxx" in
@@ -18439,14 +18439,20 @@ int main(int argc, char *argv[])
}
EOCP
set try
+ # this is really stupid, but we have to link in the -ldb to have
+ # the above program succeed
+ _old_libs="$libs"
+ libs="$libs -ldb"
if eval $compile_ok && $run ./try; then
echo 'Looks OK.' >&4
+ libs="$_old_libs"
set `$run ./try 1`
db_version_major=$1
db_version_minor=$2
db_version_patch=$3
else
echo "I can't use Berkeley DB with your <db.h>. I'll disable Berkeley DB." >&4
+ libs="$_old_libs"
i_db=$undef
case " $libs " in
*"-ldb "*)
@@ -18489,7 +18495,7 @@ int main()
}
#endif
EOCP
- if $cc $ccflags -c try.c >try.out 2>&1 ; then
+ if $cc $ccflags -c try.c -ldb >try.out 2>&1 ; then
if $contains warning try.out >>/dev/null 2>&1 ; then
db_hashtype='int'
else
@@ -18534,7 +18540,7 @@ int main()
}
#endif
EOCP
- if $cc $ccflags -c try.c >try.out 2>&1 ; then
+ if $cc $ccflags -c try.c -ldb >try.out 2>&1 ; then
if $contains warning try.out >>/dev/null 2>&1 ; then
db_prefixtype='int'
else
@@ -22313,7 +22319,7 @@ passcat='$passcat'
patchlevel='$patchlevel'
path_sep='$path_sep'
perl5='$perl5'
-perl='$perl'
+perl='perl'
perl_patchlevel='$perl_patchlevel'
perladmin='$perladmin'
perllibs='$perllibs'
--- ./SuSE/SuSEconfig.perl.orig 2008-01-07 09:33:53.000000000 +0000
+++ ./SuSE/SuSEconfig.perl 2008-01-07 09:33:53.000000000 +0000
@@ -0,0 +1,76 @@
+#! /bin/bash
+#
+# Copyright (c) 1996 S.u.S.E. Gmbh Fuerth, Germany. All rights reserved.
+#
+# Author: Burchard Steinbild <bs@suse.de>, 1996
+# Martin Scherbaum <maddin@suse.de>, 5/1997
+# Ruediger Oertel <ro@suse.de>, 7/1998
+
+#
+# Variables in /etc/sysconfig/suseconfig used by this script are:
+# CREATE_PERLLOCAL_POD
+#
+# This script calls the scripts:
+# /usr/sbin/perllocal.suse which comes from the package perl
+#
+
+#
+# check if we are started as root
+# only one of UID and USER must be set correctly
+#
+if test "$UID" != 0 -a "$USER" != root; then
+ echo "You must be root to start $0."
+ exit 1
+fi
+
+#
+# SuSEconfig sometimes sets the variable CHECK_NEWPACKAGE. If it is set
+# to false, we don't have to do anything.
+#
+test "$CHECK_NEWPACKAGE" = false && exit 0
+
+test -f /etc/sysconfig/suseconfig || { echo "No /etc/sysconfig/suseconfig found." && exit 1 ; }
+. /etc/sysconfig/suseconfig
+
+# this skript only works in a running system.
+
+test -n "$ROOT" && exit 0
+
+perl -e 'exit 0' 2>/dev/null || { echo "Perl not found." && exit 0 ; }
+
+#
+# see if we may do any work
+#
+test -n "$CREATE_PERLLOCAL_POD" -a "$CREATE_PERLLOCAL_POD" = "yes" \
+ || { echo "disabled in sysconfig/suseconfig" && exit 1 ; }
+
+#
+# check if anything to add
+#
+PERLLOCAL_PATH=`perl -V:installarchlib | sed -e "s/.*='\(.*\)'.*/\1/"`
+
+NEEDED="false"
+
+if test -d /var/adm/perl-modules ; then
+ if test /var/adm/perl-modules -nt $PERLLOCAL_PATH/perllocal.pod ; then
+ NEEDED="true"
+ elif test ! -f $PERLLOCAL_PATH/perllocal.pod ; then
+ NEEDED="true"
+ fi
+fi
+
+#
+# now call the working script
+#
+if "$NEEDED" = "true" ; then
+ if test -x /usr/lib/perl5/perllocal.SuSE ; then
+ /usr/lib/perl5/perllocal.SuSE
+ pod2man $PERLLOCAL_PATH/perllocal.pod | gzip > /usr/share/man/man3/perllocal.3pm.gz
+ else
+ echo "SuSEconfig.perl: /usr/lib/perl5/perllocal.SuSE not found!"
+ fi
+fi
+
+#
+# end of file SuSEconfig.perl
+#
--- ./SuSE/perllocal.SuSE.orig 2008-01-07 09:33:53.000000000 +0000
+++ ./SuSE/perllocal.SuSE 2008-01-07 09:33:53.000000000 +0000
@@ -0,0 +1,84 @@
+#!/usr/bin/perl
+# Copyright (c) 1998 S.u.S.E. Gmbh Fuerth, Germany. All rights reserved.
+#
+# Author: Ruediger Oertel <ro@suse.de>, 1998
+#
+
+use Config;
+
+sub ReadFile {
+ local (*IF,*modules) = @_;
+
+ while(<IF>) {
+ chomp ($_);
+ next if (/^$/);
+ if (/^=head2.*$/) {
+ ($front,$rear) = split (': ',$_);
+ $front =~ s/^=head2\s*//;
+ $modules{$rear} = "$front";
+ } elsif (/^=over [0-9]*$/) {
+ ($dummy,$num) = split ('\s',$_);
+ $curnum = 0;
+ } elsif (/^C<.*:.*>$/) {
+ $entry = $_;
+ $curnum++;
+ $modules{$rear} .= "\0$entry";
+ } elsif (/^=back$/) {
+ ;
+ } elsif (/^=item \*$/) {
+ ;
+ } else {
+ print "SuSEconfig.perl: parsing perllocal:\n";
+ print "ignoring line: $_\n";
+ }
+ }
+ return %modules;
+}
+
+local (%allmodules);
+
+if (open (IF, "<$Config{'installarchlib'}/perllocal.pod")) {
+ %allmodules = ReadFile(*IF,*allmodules);
+}
+close (IF);
+
+opendir (DIR, "/var/adm/perl-modules");
+while ($dirent = readdir(DIR)) {
+ next if ($dirent =~ /^\./);
+ open (IF , "/var/adm/perl-modules/$dirent");
+ %allmodules = ReadFile(*IF,*allmodules);
+ close (IF);
+}
+closedir (DIR);
+
+
+if (open (OF, ">$Config{'installarchlib'}/perllocal.pod")) {
+ foreach $key (keys(%allmodules)) {
+ $name = $key;
+ $name =~ s/^.*L\<//;
+ $name =~ s/.*\|//;
+ $name =~ s/>$//;
+ $name =~ s/::/\//;
+ @entries = split ('\0',$allmodules{$key});
+ $ipath = $entries[1];
+ $ipath =~ s/^.*\:\s//;
+ $ipath =~ s/>$//;
+
+ # test if the module is really there, else skip
+ if ( -d "$ipath/$Config{'archname'}/auto/$name" ||
+ -d "$Config{'installarchlib'}/auto/$name" ) {
+ $num = $#entries;
+ print OF "=head2 ",shift(@entries),": $key\n\n";
+ print OF "=over $num\n\n";
+ while ($_ = shift(@entries)) {
+ print OF "=item *\n\n";
+ print OF "$_\n\n";
+ }
+ print OF "=back\n\n";
+ }
+ }
+ close (OF);
+} else {
+ print "SuSEconfig.perl: Can't write to file $Config{'installarchlib'}/perllocal.pod !\n\n";
+}
+
--- ./SuSE/sysconfig.suseconfig-perl.orig 2008-01-07 09:33:53.000000000 +0000
+++ ./SuSE/sysconfig.suseconfig-perl 2008-01-07 09:33:53.000000000 +0000
@@ -0,0 +1,8 @@
+## Path: System/SuSEconfig
+## Type: yesno
+## Default: yes
+## Config: perl
+#
+# May SuSEconfig modify your perllocal.pod? (yes/no)
+#
+CREATE_PERLLOCAL_POD="yes"
--- ./ext/Compress/Raw/Zlib/config.in.orig 2007-12-18 10:47:07.000000000 +0000
+++ ./ext/Compress/Raw/Zlib/config.in 2008-01-07 17:07:58.000000000 +0000
@@ -16,9 +16,9 @@
# Setting the Gzip OS Code
#
-BUILD_ZLIB = True
-INCLUDE = ./zlib-src
-LIB = ./zlib-src
+BUILD_ZLIB = False
+INCLUDE = /usr/include
+LIB = /usr/lib
OLD_ZLIB = False
GZIP_OS_CODE = AUTO_DETECT
--- ./ext/DynaLoader/hints/linux.pl.orig 2007-12-18 10:47:07.000000000 +0000
+++ ./ext/DynaLoader/hints/linux.pl 2008-01-07 09:33:53.000000000 +0000
@@ -2,4 +2,7 @@
# Some Linux releases like to hide their <nlist.h>
$self->{CCFLAGS} = $Config{ccflags} . ' -I/usr/include/libelf'
if -f "/usr/include/libelf/nlist.h";
+# Some silly modules like mod_perl use DynaLoader.a in a shared
+# 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';
1;
--- ./ext/Encode/bin/enc2xs.orig 2007-12-18 10:47:07.000000000 +0000
+++ ./ext/Encode/bin/enc2xs 2008-01-18 14:28:14.000000000 +0000
@@ -1005,13 +1005,13 @@ sub make_configlocal_pm {
$LocalMod{$enc} ||= $mod;
}
};
- File::Find::find({wanted => $wanted}, @INC);
+ File::Find::find({wanted => $wanted}, grep {$_ ne '.'} @INC);
$_ModLines = "";
for my $enc ( sort keys %LocalMod ) {
$_ModLines .=
qq(\$Encode::ExtModule{'$enc'} = "$LocalMod{$enc}";\n);
}
- warn $_ModLines;
+ warn $_ModLines if $_ModLines ne '';
$_LocalVer = _mkversion();
$_E2X = find_e2x();
$_Inc = $INC{"Encode.pm"};
--- ./ext/NDBM_File/Makefile.PL.orig 2007-12-18 10:47:07.000000000 +0000
+++ ./ext/NDBM_File/Makefile.PL 2008-01-07 09:45:05.000000000 +0000
@@ -10,6 +10,7 @@ if($Config{i_gdbm} && $Config{i_gdbm} eq
WriteMakefile(
NAME => 'NDBM_File',
LIBS => ["-L/usr/local/lib -lndbm", "-ldbm -lucb"],
+ CCFLAGS => '-I/usr/include/db1 -Dbool=char -DHAS_BOOL',
DEFINE => $define,
MAN3PODS => {}, # Pods will be built by installman.
XSPROTOARG => '-noprototypes', # XXX remove later?
--- ./ext/ODBM_File/Makefile.PL.orig 2007-12-18 10:47:07.000000000 +0000
+++ ./ext/ODBM_File/Makefile.PL 2008-01-07 09:34:08.000000000 +0000
@@ -1,7 +1,7 @@
use ExtUtils::MakeMaker;
WriteMakefile(
NAME => 'ODBM_File',
- LIBS => ["-ldbm -lucb"],
+ LIBS => ["-lgdbm -lucb"],
MAN3PODS => {}, # Pods will be built by installman.
XSPROTOARG => '-noprototypes', # XXX remove later?
VERSION_FROM => 'ODBM_File.pm',
--- ./ext/ODBM_File/hints/linux.pl.orig 2007-12-18 10:47:07.000000000 +0000
+++ ./ext/ODBM_File/hints/linux.pl 2008-01-07 09:34:08.000000000 +0000
@@ -1,5 +1,5 @@
# uses GDBM dbm compatibility feature - at least on SuSE 8.0
-$self->{LIBS} = ['-lgdbm'];
+$self->{LIBS} = ['-lgdbm -lgdbm_compat'];
# Debian/Ubuntu have /usr/lib/libgdbm_compat.so.3* but not this file,
# so linking may fail
--- ./ext/Sys/Syslog/t/syslog.t.orig 2007-12-18 10:47:07.000000000 +0000
+++ ./ext/Sys/Syslog/t/syslog.t 2008-01-07 11:49:53.000000000 +0000
@@ -201,6 +201,7 @@ SKIP: {
}
}
else {
+ $r = 1 unless -e '/dev/log';
ok( $r, "setlogsock() should return true: '$r'" );
}
--- ./hints/linux.sh.orig 2007-12-18 10:47:07.000000000 +0000
+++ ./hints/linux.sh 2008-01-07 09:34:08.000000000 +0000
@@ -50,7 +50,9 @@ ignore_versioned_solibs='y'
# BSD compatibility library no longer needed
# 'kaffe' has a /usr/lib/libnet.so which is not at all relevant for perl.
# bind causes issues with several reentrant functions
-set `echo X "$libswanted "| sed -e 's/ bsd / /' -e 's/ net / /' -e 's/ bind / /'`
+set `echo X "$libswanted "| \
+ sed -e 's/ bsd / /' -e 's/ net / /' -e 's/ bind / /' \
+ -e 's/ db / /' -e 's/ gdbm / /' -e 's/ ndbm / /'`
shift
libswanted="$*"
@@ -60,7 +62,18 @@ libswanted="$*"
# We don't use __GLIBC__ and __GLIBC_MINOR__ because they
# are insufficiently precise to distinguish things like
# libc-2.0.6 and libc-2.0.7.
-if test -L /lib/libc.so.6; then
+if test -e /lib64/libc.so.6; then
+ libc=`ls -l /lib64/libc.so.6 | awk '{print $NF}'`
+ libc=/lib64/$libc
+ #plibpth='/usr/local/lib64 /usr/lib64 /lib64'
+ glibpth='/lib64 /usr/lib64 /usr/local/lib64'
+ libspath='/usr/local/lib64 /lib64 /usr/lib64'
+ #libpth='/usr/local/lib64 /lib64 /usr/lib64'
+ loclibpth='/usr/local/lib64'
+ lddlflags='-shared -L/usr/local/lib64'
+ ldflags=' -L/usr/local/lib64'
+ libs='-lm -ldl -lcrypt'
+elif test -L /lib/libc.so.6; then
libc=`ls -l /lib/libc.so.6 | awk '{print $NF}'`
libc=/lib/$libc
fi
@@ -130,9 +143,14 @@ case "$optimize" in
esac
;;
esac
+ optimize="$optimize --pipe"
;;
esac
+man1dir=/usr/share/man/man1
+man3dir=/usr/share/man/man3
+man3ext=3pm
+
# Are we using ELF? Thanks to Kenneth Albanowski <kjahds@kjahds.com>
# for this test.
cat >try.c <<'EOM'
@@ -217,6 +235,29 @@ EOM
esac
fi
+case `uname -m` in
+i?86) archname='i586-linux';;
+*) archname=`uname -m`-linux;;
+esac
+
+case $archname in
+sparc64-linux) glibpth="/lib64 /usr/lib64";;
+esac
+
+cf_email='feedback@suse.de'
+#libs='-lgdbm -ldb -ldl -lm -lc'
+#libs='-ldl -lm -lc'
+
+usedl='true'
+dlsrc='dl_dlopen.xs'
+d_dosuid='define'
+d_bincompat3='y'
+
+# We don't want to add /usr/local/include and /usr/local/lib to the search
+# paths, they are already searched by default.
+locincpth=
+loclibpth=
+
rm -f try.c a.out
if /bin/sh -c exit; then
@@ -266,6 +307,9 @@ else
echo "Couldn't find tcsh. Csh-based globbing might be broken."
fi
fi
+csh=''
+d_csh='undef'
+full_csh=''
# Shimpei Yamashita <shimpei@socrates.patnet.caltech.edu>
# Message-Id: <33EF1634.B36B6500@pobox.com>
@@ -344,6 +388,8 @@ $define|true|[yY]*)
d_localtime_r_proto="$define"
d_random_r_proto="$define"
+ test -e /lib64/libc.so.6 && libs='-lm -ldl -lcrypt -lpthread'
+
;;
esac
EOCBU
--- ./installperl.orig 2007-12-18 10:47:07.000000000 +0000
+++ ./installperl 2008-01-07 09:34:08.000000000 +0000
@@ -249,7 +249,7 @@ if ($Is_VMS) { # Hang in there until Fi
# Do some quick sanity checks.
-if (!$nonono && $d_dosuid && $>) { die "You must run as root to install suidperl\n"; }
+# if (!$nonono && $d_dosuid && $>) { die "You must run as root to install suidperl\n"; }
$installbin || die "No installbin directory in config.sh\n";
-d $installbin || mkpath($installbin, $verbose, 0777);
@@ -361,7 +361,11 @@ else {
safe_unlink("$installbin/s$perl_verbase$ver$exe_ext");
if ($d_dosuid) {
copy("suidperl$exe_ext", "$installbin/s$perl_verbase$ver$exe_ext");
- chmod(04711, "$installbin/s$perl_verbase$ver$exe_ext");
+ if ($>) {
+ chmod(0711, "$installbin/s$perl_verbase$ver$exe_ext");
+ } else {
+ chmod(04711, "$installbin/s$perl_verbase$ver$exe_ext");
+ }
}
# Install library files.
--- ./lib/ExtUtils/Packlist.pm.orig 2007-12-18 10:47:07.000000000 +0000
+++ ./lib/ExtUtils/Packlist.pm 2008-01-07 09:34:08.000000000 +0000
@@ -202,8 +202,11 @@ foreach my $key (sort(keys(%{$self->{dat
{
if (! -e $key)
{
- push(@missing, $key);
- delete($self->{data}{$key}) if ($remove);
+ if (($key !~ m!/man/!) || ! -e "$key.gz")
+ {
+ push(@missing, $key);
+ delete($self->{data}{$key}) if ($remove);
+ }
}
}
return(@missing);
--- ./lib/perl5db.pl.orig 2007-12-18 10:47:07.000000000 +0000
+++ ./lib/perl5db.pl 2008-01-07 09:34:12.000000000 +0000
@@ -3386,6 +3386,8 @@ reading another.
open( OUT, ">&STDOUT" ) # XXX: lost message
|| &warn("Can't restore DB::OUT");
}
+ # tell readline the new OUT handle
+ $term->Attribs()->{outstream} = *OUT if defined &Term::ReadLine::Gnu::readline;
next CMD;
} ## end unless ($piped = open(OUT,...
@@ -3510,6 +3512,8 @@ our standard filehandles for input and o
# if necessary,
close(SAVEOUT);
select($selected), $selected = "" unless $selected eq "";
+ # tell readline the new OUT handle
+ $term->Attribs()->{outstream} = *OUT if defined &Term::ReadLine::Gnu::readline;
# No pipes now.
$piped = "";
--- ./lib/unicore/mktables.orig 2007-12-18 10:47:07.000000000 +0000
+++ ./lib/unicore/mktables 2008-01-07 09:34:12.000000000 +0000
@@ -149,7 +149,7 @@ foreach my $lib ('To', 'lib',
map {File::Spec->catdir("lib",$_)}
qw(gc_sc dt bc hst ea jt lb nt ccc)) {
next if -d $lib;
- mkdir $lib, 0755 or die "mkdir '$lib': $!";
+ mkdir $lib, 0755 or $! =~ /exists/i or die "mkdir '$lib': $!";
}
my $LastUnicodeCodepoint = 0x10FFFF; # As of Unicode 3.1.1.
--- ./locale.c.orig 2007-12-18 10:47:08.000000000 +0000
+++ ./locale.c 2008-01-07 09:52:47.000000000 +0000
@@ -350,9 +350,15 @@ Perl_init_i18nl10n(pTHX_ int printwarn)
if (setlocale_failure) {
char *p;
+#if 0
const bool locwarn = (printwarn > 1 ||
(printwarn &&
(!(p = PerlEnv_getenv("PERL_BADLANG")) || atoi(p))));
+#else
+ const bool locwarn = (printwarn > 1 ||
+ (printwarn &&
+ ((p = PerlEnv_getenv("PERL_BADLANG")) && atoi(p))));
+#endif
if (locwarn) {
#ifdef LC_ALL
--- ./t/TEST.orig 2007-12-18 10:47:08.000000000 +0000
+++ ./t/TEST 2008-01-07 09:34:12.000000000 +0000
@@ -153,6 +153,7 @@ unless (@ARGV) {
next if $skip{$extension};
}
my $path = File::Spec->catfile($updir, $t);
+ next unless -e $path;
push @ARGV, $path;
$::path_to_name{$path} = $t;
}
--- ./t/harness.orig 2007-12-18 10:47:08.000000000 +0000
+++ ./t/harness 2008-01-07 09:39:13.000000000 +0000
@@ -107,7 +107,8 @@ if (@ARGV) {
# XXX Do I want to warn that I'm skipping these?
next if $skip{$extension};
}
- push @manitests, File::Spec->catfile($updir, $test);
+ my $t = File::Spec->catfile($updir, $test);
+ push @manitests, $t if -e $t;
}
}
close MANI;
--- ./t/op/numconvert.t.orig 2007-12-18 10:47:08.000000000 +0000
+++ ./t/op/numconvert.t 2008-01-07 09:34:12.000000000 +0000
@@ -46,7 +46,7 @@ my $max_chain = $ENV{PERL_TEST_NUMCONVER
# Bulk out if unsigned type is hopelessly wrong:
my $max_uv1 = ~0;
-my $max_uv2 = sprintf "%u", $max_uv1 ** 6; # 6 is an arbitrary number here
+my $max_uv2 = sprintf "%lu", $max_uv1 ** 6; # 6 is an arbitrary number here
my $big_iv = do {use integer; $max_uv1 * 16}; # 16 is an arbitrary number here
my $max_uv_less3 = $max_uv1 - 3;
--- ./utils/perlbug.PL.orig 2007-12-18 10:47:08.000000000 +0000
+++ ./utils/perlbug.PL 2008-01-07 09:34:12.000000000 +0000
@@ -929,6 +929,7 @@ sendout:
print SENDMAIL "Cc: $cc\n" if $cc;
print SENDMAIL "Reply-To: $from\n" if $from;
print SENDMAIL "Message-Id: $messageid\n" if $messageid;
+ print SENDMAIL "X-Webfrontend: perlbug\n";
print SENDMAIL "\n\n";
open(REP, "<$filename") or die "Couldn't open `$filename': $!\n";
while (<REP>) { print SENDMAIL $_ }
--- ./lib/CPAN.pm 2007-12-18 11:47:07.000000000 +0100
+++ ./lib/CPAN.pm 2008-02-19 11:57:36.000000000 +0100
@@ -43,7 +43,7 @@
}
no lib ".";
-require Mac::BuildTools if $^O eq 'MacOS';
+#require Mac::BuildTools if $^O eq 'MacOS';
$ENV{PERL5_CPAN_IS_RUNNING}=$$;
$ENV{PERL5_CPANPLUS_IS_RUNNING}=$$; # https://rt.cpan.org/Ticket/Display.html?id=23735
@@ -1647,7 +1647,7 @@
$File::Find::prune++ if $CPAN::Signal;
return if -l $_;
if ($^O eq 'MacOS') {
- require Mac::Files;
+ #require Mac::Files;
my $cat = Mac::Files::FSpGetCatInfo($_);
$Du += $cat->ioFlLgLen() + $cat->ioFlRLgLen() if $cat;
} else {
--- ./lib/File/Spec/VMS.pm 2007-12-18 11:47:07.000000000 +0100
+++ ./lib/File/Spec/VMS.pm 2008-02-19 12:02:21.000000000 +0100
@@ -11,6 +11,8 @@
use File::Basename;
use VMS::Filespec;
+our $RPM_Ignore_Requires = "perl(VMS::Filespec)";
+
=head1 NAME
File::Spec::VMS - methods for VMS file specs
--- ./lib/Net/Config.pm 2007-12-18 11:47:07.000000000 +0100
+++ ./lib/Net/Config.pm 2008-02-19 11:57:58.000000000 +0100
@@ -37,7 +37,7 @@
# Try to get as much configuration info as possible from InternetConfig
#
$^O eq 'MacOS' and eval <<TRY_INTERNET_CONFIG;
-use Mac::InternetConfig;
+#use Mac::InternetConfig;
{
my %nc = (
--- ./lib/Carp/Heavy.pm 2007-12-18 11:47:07.000000000 +0100
+++ ./lib/Carp/Heavy.pm 2008-02-19 13:20:23.000000000 +0100
@@ -30,6 +30,7 @@
$Internal{Exporter}++;
$Internal{'Exporter::Heavy'}++;
+our $RPM_Ignore_Requires = "perl(Carp::Heavy)";
our ($CarpLevel, $MaxArgNums, $MaxEvalLen, $MaxArgLen, $Verbose);
--- ./lib/CPANPLUS/Internals/Constants/Report.pm 2007-12-18 11:47:08.000000000 +0100
+++ ./lib/CPANPLUS/Internals/Constants/Report.pm 2008-02-19 13:49:42.000000000 +0100
@@ -241,6 +241,8 @@
.
};
+our $RPM_Ignore_Requires = "perl(Your::Module::Here)";
+
use constant REPORT_MISSING_TESTS
=> sub {
return << ".";
--- ./lib/File/Temp.pm 2007-12-18 11:47:07.000000000 +0100
+++ ./lib/File/Temp.pm 2008-02-19 15:44:25.000000000 +0100
@@ -142,7 +142,7 @@
use Fcntl 1.03;
use IO::Seekable; # For SEEK_*
use Errno;
-require VMS::Stdio if $^O eq 'VMS';
+#require VMS::Stdio if $^O eq 'VMS';
# 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
--- ./lib/CGI/Fast.pm 2007-12-18 11:47:07.000000000 +0100
+++ ./lib/CGI/Fast.pm 2008-02-19 18:16:19.000000000 +0100
@@ -19,6 +19,9 @@
use FCGI;
@ISA = ('CGI');
+# FCGI is missing from the perl distri
+our $RPM_Ignore_Requires = "perl(FCGI)";
+
# workaround for known bug in libfcgi
while (($ignore) = each %ENV) { }

3
perl-5.10.0.tar.bz2
View File

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

11
perl-5.18.2-overflow.diff
View File

@ -1,11 +0,0 @@
--- ./sv.c.orig 2022-05-21 21:26:59.000000000 +0000
+++ ./sv.c 2022-06-23 11:53:50.561877702 +0000
@@ -2002,7 +2002,7 @@ S_sv_2iuv_common(pTHX_ SV *const sv)
#ifndef NV_PRESERVES_UV
&& SvIVX(sv) != IV_MIN /* avoid negating IV_MIN below */
&& (((UV)1 << NV_PRESERVES_UV_BITS) >
- (UV)(SvIVX(sv) > 0 ? SvIVX(sv) : -SvIVX(sv)))
+ (UV)(SvIVX(sv) > 0 ? (UV)SvIVX(sv) : -(UV)SvIVX(sv)))
/* Don't flag it as "accurately an integer" if the number
came from a (by definition imprecise) NV operation, and
we're outside the range of NV integer precision */

40
perl-5.38.0.diff
View File

@ -1,6 +1,6 @@
--- Configure.orig 2023-06-02 01:12:22.000000000 +0000
+++ Configure 2023-07-19 12:31:54.415128119 +0000
@@ -114,7 +114,7 @@ paths="$paths /usr/5bin /etc /usr/gnu/bi
@@ -114,7 +114,7 @@
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 /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 /system/gnu_library/bin"
@@ -1476,7 +1476,7 @@ loclibpth="/usr/local/lib /opt/local/lib
@@ -1480,7 +1480,7 @@
loclibpth="$loclibpth /opt/gnu/lib /usr/GNU/lib /opt/GNU/lib"
: general looking path for locating libraries
@ -18,7 +18,7 @@
glibpth="$glibpth /usr/ccs/lib /usr/ucblib /usr/local/lib"
test -f /usr/shlib/libc.so && glibpth="/usr/shlib $glibpth"
test -f /shlib/libc.so && glibpth="/shlib $glibpth"
@@ -2581,7 +2581,7 @@ uname
@@ -2585,7 +2585,7 @@
zip
"
pth=`echo $PATH | sed -e "s/$p_/ /g"`
@ -27,7 +27,7 @@
for file in $loclist; do
eval xxx=\$$file
case "$xxx" in
@@ -20673,14 +20673,20 @@ int main(int argc, char *argv[])
@@ -20913,14 +20913,20 @@
}
EOCP
set try
@ -48,7 +48,7 @@
i_db=$undef
case " $libs " in
*"-ldb "*)
@@ -20718,7 +20724,7 @@ int main()
@@ -20958,7 +20964,7 @@
}
#endif
EOCP
@ -57,7 +57,7 @@
if $compiler_warning try.out >>/dev/null 2>&1 ; then
db_hashtype='int'
else
@@ -20758,7 +20764,7 @@ int main()
@@ -20998,7 +21004,7 @@
}
#endif
EOCP
@ -66,15 +66,15 @@
if $compiler_warning try.out >>/dev/null 2>&1 ; then
db_prefixtype='int'
else
@@ -25564,7 +25570,7 @@ passcat='$passcat'
@@ -25806,7 +25812,7 @@
patchlevel='$patchlevel'
path_sep='$path_sep'
perl5='$perl5'
-perl='$perl'
+perl='perl'
perl_lc_all_category_positions_init='$perl_lc_all_category_positions_init'
perl_lc_all_separator='$perl_lc_all_separator'
perl_patchlevel='$perl_patchlevel'
perl_static_inline='$perl_static_inline'
perl_thread_local='$perl_thread_local'
--- SuSE/SuSEconfig.perl.orig 2023-07-19 12:31:54.415128119 +0000
+++ SuSE/SuSEconfig.perl 2023-07-19 12:31:54.415128119 +0000
@@ -0,0 +1,76 @@
@ -253,16 +253,16 @@
+CREATE_PERLLOCAL_POD="yes"
--- cpan/Compress-Raw-Zlib/config.in.orig 2023-05-26 01:05:34.000000000 +0000
+++ cpan/Compress-Raw-Zlib/config.in 2023-07-19 12:31:54.415128119 +0000
@@ -16,9 +16,9 @@
@@ -11,9 +11,9 @@
# Setting the Gzip OS Code
#
-BUILD_ZLIB = True
-INCLUDE = ./zlib-src
-LIB = ./zlib-src
-ZLIB_INCLUDE = ./zlib-src
-ZLIB_LIB = ./zlib-src
+BUILD_ZLIB = False
+INCLUDE = /usr/include
+LIB = /usr/lib
+ZLIB_INCLUDE = /usr/include
+ZLIB_LIB = /usr/lib
OLD_ZLIB = False
GZIP_OS_CODE = AUTO_DETECT
USE_ZLIB_NG = False
@ -357,7 +357,7 @@
# so linking may fail
--- hints/linux.sh.orig 2023-05-26 01:05:34.000000000 +0000
+++ hints/linux.sh 2023-07-19 12:31:54.419128114 +0000
@@ -53,7 +53,7 @@ ignore_versioned_solibs='y'
@@ -53,7 +53,7 @@
# BSD compatibility library no longer needed
# 'kaffe' has a /usr/lib/libnet.so which is not at all relevant for perl.
# bind causes issues with several reentrant functions
@ -366,7 +366,7 @@
shift
libswanted="$*"
@@ -64,6 +64,20 @@ if echo " $libswanted " | grep -q ' gdbm
@@ -64,6 +64,20 @@
libswanted="$libswanted gdbm_compat"
fi
@ -387,7 +387,7 @@
# Configure may fail to find lstat() since it's a static/inline
# function in <sys/stat.h>.
d_lstat=define
@@ -147,6 +161,7 @@ case "$optimize" in
@@ -173,6 +187,7 @@
esac
;;
esac
@ -395,7 +395,7 @@
;;
esac
@@ -234,6 +249,33 @@ case "$libc" in
@@ -260,6 +275,33 @@
;;
esac
@ -429,7 +429,7 @@
if ${sh:-/bin/sh} -c exit; then
echo ''
echo 'You appear to have a working bash. Good.'
@@ -281,6 +323,9 @@ else
@@ -307,6 +349,9 @@
echo "Couldn't find tcsh. Csh-based globbing might be broken."
fi
fi
@ -439,7 +439,7 @@
# Shimpei Yamashita <shimpei@socrates.patnet.caltech.edu>
# Message-Id: <33EF1634.B36B6500@pobox.com>
@@ -391,6 +436,8 @@ $define|true|[yY]*)
@@ -417,6 +462,8 @@
d_localtime_r_proto="$define"
d_random_r_proto="$define"

BIN
perl-5.38.2.tar.xz (Stored with Git LFS)
View File

Binary file not shown.

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

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

10
perl-errorcount.diff
View File

@ -1,10 +0,0 @@
--- toke.c.orig 2007-12-18 10:47:08.000000000 +0000
+++ toke.c 2009-06-10 09:20:40.000000000 +0000
@@ -692,6 +692,7 @@ Perl_lex_start(pTHX_ SV *line, PerlIO *r
#else
parser->nexttoke = 0;
#endif
+ parser->error_count = oparser ? oparser->error_count : 0;
parser->copline = NOLINE;
parser->lex_state = LEX_NORMAL;
parser->expect = XSTATE;

11
perl-fast-syslog.diff
View File

@ -1,11 +0,0 @@
--- ext/Sys/Syslog/Syslog.pm.orig 2007-12-18 10:47:07.000000000 +0000
+++ ext/Sys/Syslog/Syslog.pm 2009-06-10 09:39:14.000000000 +0000
@@ -741,7 +741,7 @@ sub connection_ok {
my $rin = '';
vec($rin, fileno(SYSLOG), 1) = 1;
- my $ret = select $rin, undef, $rin, 0.25;
+ my $ret = select $rin, undef, $rin, 0;
return ($ret ? 0 : 1);
}

30
perl-file_path_rmtree_chmod.diff
View File

@ -1,30 +0,0 @@
A simple test case for this bug is:
touch foo # permissions 0666 & ~umask
ln -s foo bar
perl -e 'use File::Path rmtree; rmtree bar'
ls -l foo # permissions 0777
The following patch fixes that and the originally reported problem. I
believe the other chmod() calls in the _rmtree subroutine will never be
applied to a sym-link if either (1) no concurrent modifications of the
directory tree or (2) the 'safe' option is used. It would be worthwhile
for someone else to double-check that, though.
Ben.
--- lib/File/Path.pm.orig
+++ lib/File/Path.pm
@@ -351,10 +351,8 @@
}
my $nperm = $perm & 07777 | 0600;
- if ($nperm != $perm and not chmod $nperm, $root) {
- if ($Force_Writeable) {
- _error($arg, "cannot make file writeable", $canon);
- }
+ if ($Force_Writeable && $nperm != $perm and not chmod $nperm, $root) {
+ _error($arg, "cannot make file writeable", $canon);
}
print "unlink $canon\n" if $arg->{verbose};
# delete all versions under VMS

24
perl-file_path_rmtree_chmod_again.diff
View File

@ -1,24 +0,0 @@
--- lib/File/Path.pm.orig
+++ lib/File/Path.pm
@@ -316,10 +316,8 @@ sub _rmtree {
print "skipped $root\n" if $arg->{verbose};
next ROOT_DIR;
}
- if (!chmod $perm | 0700, $root) {
- if ($Force_Writeable) {
- _error($arg, "cannot make directory writeable", $canon);
- }
+ if ($Force_Writeable && !chmod $perm | 0700, $root) {
+ _error($arg, "cannot make directory writeable", $canon);
}
print "rmdir $root\n" if $arg->{verbose};
if (rmdir $root) {
@@ -328,7 +326,7 @@ sub _rmtree {
}
else {
_error($arg, "cannot remove directory", $canon);
- if (!chmod($perm, ($Is_VMS ? VMS::Filespec::fileify($root) : $root))
+ if ($Force_Writeable && !chmod($perm, ($Is_VMS ? VMS::Filespec::fileify($root) : $root))
) {
_error($arg, sprintf("cannot restore permissions to 0%o",$perm), $canon);
}

14
perl-locale-backport.diff
View File

@ -1,14 +0,0 @@
--- locale.c.orig 2023-11-28 11:57:28.000000000 +0000
+++ locale.c 2024-04-12 11:06:26.236116452 +0000
@@ -5280,11 +5280,6 @@ Perl_init_i18nl10n(pTHX_ int printwarn)
DEBUG_Lv(PerlIO_printf(Perl_debug_log, "created C object %p\n",
PL_C_locale_obj));
- /* Switch to using the POSIX 2008 interface now. This would happen below
- * anyway, but deferring it can lead to leaks of memory that would also get
- * malloc'd in the interim */
- uselocale(PL_C_locale_obj);
-
# ifdef USE_LOCALE_NUMERIC
PL_underlying_numeric_obj = duplocale(PL_C_locale_obj);

20
perl-zlib-growoob.diff
View File

@ -1,20 +0,0 @@
--- ./ext/Compress/Raw/Zlib/Zlib.xs.orig 2007-12-18 10:47:07.000000000 +0000
+++ ./ext/Compress/Raw/Zlib/Zlib.xs 2009-06-10 09:11:57.000000000 +0000
@@ -1295,7 +1295,7 @@ inflate (s, buf, output, eof=FALSE)
if (s->stream.avail_out == 0 ) {
/* out of space in the output buffer so make it bigger */
- Sv_Grow(output, SvLEN(output) + bufinc) ;
+ Sv_Grow(output, SvLEN(output) + bufinc + 1) ;
cur_length += increment ;
s->stream.next_out = (Bytef*) SvPVbyte_nolen(output) + cur_length ;
increment = bufinc ;
@@ -1336,7 +1336,7 @@ inflate (s, buf, output, eof=FALSE)
s->stream.avail_in = 1;
if (s->stream.avail_out == 0) {
/* out of space in the output buffer so make it bigger */
- Sv_Grow(output, SvLEN(output) + bufinc) ;
+ Sv_Grow(output, SvLEN(output) + bufinc + 1) ;
cur_length += increment ;
s->stream.next_out = (Bytef*) SvPVbyte_nolen(output) + cur_length ;
increment = bufinc ;

47
perl.changes
View File

@ -1,3 +1,45 @@
-------------------------------------------------------------------
Wed Jul 3 07:31:25 UTC 2024 - Dirk Stoecker <opensuse@dstoecker.de>
- Insert manual provide for perl(Getopt::Long) until new version
transition is done
-------------------------------------------------------------------
Mon Jun 17 12:36:15 CEST 2024 - mls@suse.de
- move UNIVERSAL.pm into perl-base
-------------------------------------------------------------------
Tue Jun 11 16:05:14 UTC 2024 - Dirk Stoecker <opensuse@dstoecker.de>
- update to 5.40.0
* New __CLASS__ Keyword
* :reader attribute for field variables
* Permit a space in -M command-line option
* Restrictions to use VERSION declarations
* New builtin::inf and builtin::nan functions (experimental)
* New ^^ logical xor operator
* try/catch feature is no longer experimental
* for iterating over multiple values at a time is no longer experimental
* builtin module is no longer experimental
* The :5.40 feature bundle adds try
* use v5.40; imports builtin functions
* CVE-2023-47038 - Write past buffer end via illegal user-defined Unicode property
* CVE-2023-47039 - Perl for Windows binary hijacking vulnerability
* reset EXPR now calls set-magic on scalars
* Calling the import method of an unknown package produces a warning
* return no longer allows an indirect object
* Class barewords no longer resolved as file handles in method calls
under no feature "bareword_filehandles"
* Using goto to jump from an outer scope into an inner scope is
deprecated and will be removed completely in Perl 5.42. [GH #21601]
* The negation OPs have been modified to support the generic TARGMY
optimization. [GH #21442]
- Refresh perl-5.38.0.diff
- Drop perl-5.18.2-overflow.diff (no longer applicable)
- Drop perl-locale-backport.diff (proper fix in new version)
- Drop old manual package name based perl provides
-------------------------------------------------------------------
Fri Apr 12 13:06:56 CEST 2024 - mls@suse.de
@ -1688,7 +1730,6 @@ Thu Jan 22 19:22:53 MET 1998 - florian@suse.de
Tue Nov 11 19:46:21 MET 1997 - florian@suse.de
- fixed file list
- update to perl 5.004_04
-------------------------------------------------------------------
@ -1705,16 +1746,12 @@ Thu Oct 9 19:08:47 MEST 1997 - florian@suse.de
-------------------------------------------------------------------
Tue May 20 14:10:37 MEST 1997 - florian@suse.de
- update to version 5.004
- disable hooks to csh in perl, it is not installed on all systems
-------------------------------------------------------------------
Mon Nov 4 01:59:08 CET 1996 - bs@suse.de
h2ph call in doinst.sh added.
-------------------------------------------------------------------

69
perl.spec
View File

@ -23,11 +23,11 @@
%define name_suffix %{nil}
%endif
%define pversion 5.38.2
%define pversion 5.40.0
# set to nil when equal to pversion
%global versionlist 5.38.0
%global versionlist %{nil}
Name: perl%{?name_suffix}
Version: 5.38.2
Version: 5.40.0
Release: 0
Summary: The Perl interpreter
License: Artistic-1.0 OR GPL-1.0-or-later
@ -47,14 +47,12 @@ Patch6: perl-saverecontext.diff
Patch7: perl-5.22.0_wrong_rpm_provides.diff
Patch8: skip_time_hires.patch
Patch9: perl-incfix.diff
Patch11: perl-5.18.2-overflow.diff
# PATCH-FIX-OPENSUSE prevent changing package when rebuilding
Patch12: perl-reproducible.patch
# PATCH-FIX-OPENSUSE skip flaky tests powerpc as bypass https://bugzilla.suse.com/show_bug.cgi?id=1063176
Patch13: perl_skip_flaky_tests_powerpc.patch
# PATCH-FIX-UPSTREAM unmerged https://www.nntp.perl.org/group/perl.perl5.porters/2018/12/msg253240.html
Patch18: perl-reproducible2.patch
Patch19: perl-locale-backport.diff
BuildRequires: db-devel
BuildRequires: gdbm-devel
BuildRequires: libbz2-devel
@ -65,65 +63,10 @@ BuildRequires: xz
BuildRequires: zlib-devel
Requires: perl-base = %{version}
Suggests: perl-doc = %{version}
Provides: perl-500
Provides: perl-Archive-Tar = 2.40
Provides: perl(:MODULE_COMPAT_%{pversion})
%if "%{versionlist}" != ""
Provides: perl(:MODULE_COMPAT_%{versionlist})
%endif
Obsoletes: perl-Archive-Tar <= 2.40
Provides: perl-autodie = 2.36
Obsoletes: perl-autodie <= 2.36
Provides: perl-Compress-Raw-Zlib = 2.204
Obsoletes: perl-Compress-Raw-Zlib <= 2.204
Provides: perl-Compress-Zlib = 2.204
Obsoletes: perl-Compress-Zlib <= 2.204
Provides: perl-CPAN-Meta = 2.150010
Obsoletes: perl-CPAN-Meta <= 2.150010
Provides: perl-CPAN-Meta-YAML = 0.018
Obsoletes: perl-CPAN-Meta-YAML <= 0.018
Provides: perl-ExtUtils-CBuilder = 0.280238
Obsoletes: perl-ExtUtils-CBuilder <= 0.280238
Provides: perl-ExtUtils-ParseXS = 3.51
Obsoletes: perl-ExtUtils-ParseXS <= 3.51
Provides: perl-Filter-Simple = 0.96
Obsoletes: perl-Filter-Simple <= 0.96
Provides: perl-I18N-LangTags = 0.45
Obsoletes: perl-I18N-LangTags <= 0.45
Provides: perl-IO-Compress-Base = 2.204
Obsoletes: perl-IO-Compress-Base <= 2.204
Provides: perl-IO-Compress-Zlib = 2.204
Obsoletes: perl-IO-Compress-Zlib <= 2.204
Provides: perl-IO-Socket-IP = 0.41
Obsoletes: perl-IO-Socket-IP <= 0.41
Provides: perl-IO-Zlib = 1.14
Obsoletes: perl-IO-Zlib <= 1.14
Provides: perl-libnet = 3.15
Obsoletes: perl-libnet <= 3.15
Provides: perl-Locale-Maketext-Simple = 0.21
Obsoletes: perl-Locale-Maketext-Simple <= 0.21
Provides: perl-MIME-Base64 = 3.16
Obsoletes: perl-MIME-Base64 <= 3.16
Provides: perl-Parse-CPAN-Meta = 2.150010
Obsoletes: perl-Parse-CPAN-Meta <= 2.150010
Provides: perl-PathTools = 3.88
Obsoletes: perl-PathTools <= 3.88
Provides: perl-Pod-Escapes = 1.07
Obsoletes: perl-Pod-Escapes <= 1.07
Provides: perl-Pod-Simple = 3.43
Obsoletes: perl-Pod-Simple <= 3.43
Provides: perl-Storable = 3.32
Obsoletes: perl-Storable <= 3.32
Provides: perl-Test-Harness = 3.44
Obsoletes: perl-Test-Harness <= 3.44
Provides: perl-Test-Simple = 1.302194
Obsoletes: perl-Test-Simple <= 1.302194
Provides: perl-Text-Balanced = 2.06
Obsoletes: perl-Text-Balanced <= 2.06
Provides: perl-Time-HiRes = 1.9775
Obsoletes: perl-Time-HiRes <= 1.9775
Provides: perl-version = 0.9929
Obsoletes: perl-version <= 0.9929
%if "%{version}" != "%{pversion}"
Provides: perl = %{pversion}-%{release}
%endif
@ -148,6 +91,8 @@ Provides: perl-Digest-MD5 = 2.55
%if "%{version}" != "%{pversion}"
Provides: perl-base = %{pversion}-%{release}
%endif
# manual provides until we finally switch to the new versions system
Provides: perl(Getopt::Long) = 2.570.0
%description base
perl - Practical Extraction and Report Language
@ -188,10 +133,8 @@ cp -p %{SOURCE3} .
%patch -P 13
%endif
%patch -P 9 -p1
%patch -P 11
%patch -P 12 -p1
%patch -P 18
%patch -P 19
%build
%define _lto_cflags %{nil}
@ -295,10 +238,10 @@ cat << EOF > perl-base-filelist
/usr/lib/perl5/%{pversion}/FileHandle.pm
/usr/lib/perl5/%{pversion}/SelectSaver.pm
/usr/lib/perl5/%{pversion}/Symbol.pm
/usr/lib/perl5/%{pversion}/UNIVERSAL.pm
/usr/lib/perl5/%{pversion}/base.pm
/usr/lib/perl5/%{pversion}/builtin.pm
/usr/lib/perl5/%{pversion}/bytes.pm
/usr/lib/perl5/%{pversion}/bytes_heavy.pl
/usr/lib/perl5/%{pversion}/constant.pm
/usr/lib/perl5/%{pversion}/fields.pm
/usr/lib/perl5/%{pversion}/feature.pm