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

Accepting request 36640 from devel:languages:perl

Browse Source 
Copy from devel:languages:perl/perl based on submit request 36640 from user oertel

OBS-URL: https://build.opensuse.org/request/show/36640
OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl?expand=0&rev=39
This commit is contained in:
OBS User autobuild 2010-04-01 16:16:33 +00:00 committed by Git OBS Bridge
commit 2affa5ed5b
10 changed files with 287 additions and 365 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
perl-5.10.1.tar.bz2
View File

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

3
perl-5.12.0-RC1.tar.bz2 Normal file
View File

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

363
perl-5.10.1.dif → perl-5.12.0.dif
View File

@ -1,6 +1,6 @@
--- ./Configure.orig 2009-08-18 19:03:53.000000000 +0000 --- ./Configure.orig 2010-02-18 18:53:53.000000000 +0000
+++ ./Configure 2009-09-04 07:02:18.000000000 +0000 +++ ./Configure 2010-03-23 11:31:19.000000000 +0000
@@ -109,7 +109,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"
@@ -1307,7 +1307,7 @@ loclibpth="/usr/local/lib /opt/local/lib @@ -1316,7 +1316,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"
@@ -2366,7 +2366,7 @@ uname @@ -2375,7 +2375,7 @@ uname
zip zip
" "
pth=`echo $PATH | sed -e "s/$p_/ /g"` pth=`echo $PATH | sed -e "s/$p_/ /g"`
@ -27,7 +27,7 @@
for file in $loclist; do for file in $loclist; do
eval xxx=\$$file eval xxx=\$$file
case "$xxx" in case "$xxx" in
@@ -11173,7 +11173,7 @@ void xxx(int n, ...) @@ -11202,7 +11202,7 @@ void xxx(int n, ...)
va_start(args, n); va_start(args, n);
exit((unsigned long)vsprintf(buf,"%s",args) > 10L); exit((unsigned long)vsprintf(buf,"%s",args) > 10L);
} }
@ -36,7 +36,7 @@
#else /* I_VARARGS */ #else /* I_VARARGS */
@@ -11185,7 +11185,7 @@ va_dcl @@ -11214,7 +11214,7 @@ va_dcl
va_start(args); va_start(args);
exit((unsigned long)vsprintf(buf,"%s",args) > 10L); exit((unsigned long)vsprintf(buf,"%s",args) > 10L);
} }
@ -45,7 +45,7 @@
#endif #endif
@@ -18908,14 +18908,20 @@ int main(int argc, char *argv[]) @@ -19017,14 +19017,20 @@ int main(int argc, char *argv[])
} }
EOCP EOCP
set try set try
@ -66,7 +66,7 @@
i_db=$undef i_db=$undef
case " $libs " in case " $libs " in
*"-ldb "*) *"-ldb "*)
@@ -18958,7 +18964,7 @@ int main() @@ -19067,7 +19073,7 @@ int main()
} }
#endif #endif
EOCP EOCP
@ -75,7 +75,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
@@ -19003,7 +19009,7 @@ int main() @@ -19112,7 +19118,7 @@ int main()
} }
#endif #endif
EOCP EOCP
@ -84,7 +84,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
@@ -22973,7 +22979,7 @@ passcat='$passcat' @@ -23111,7 +23117,7 @@ passcat='$passcat'
patchlevel='$patchlevel' patchlevel='$patchlevel'
path_sep='$path_sep' path_sep='$path_sep'
perl5='$perl5' perl5='$perl5'
@ -93,8 +93,8 @@
perl_patchlevel='$perl_patchlevel' perl_patchlevel='$perl_patchlevel'
perladmin='$perladmin' perladmin='$perladmin'
perllibs='$perllibs' perllibs='$perllibs'
--- ./SuSE/SuSEconfig.perl.orig 2009-09-04 07:01:37.000000000 +0000 --- ./SuSE/SuSEconfig.perl.orig 2010-03-23 11:31:19.000000000 +0000
+++ ./SuSE/SuSEconfig.perl 2009-09-04 07:01:37.000000000 +0000 +++ ./SuSE/SuSEconfig.perl 2010-03-23 11:31:19.000000000 +0000
@@ -0,0 +1,76 @@ @@ -0,0 +1,76 @@
+#! /bin/bash +#! /bin/bash
+# +#
@ -172,8 +172,8 @@
+# +#
+# end of file SuSEconfig.perl +# end of file SuSEconfig.perl
+# +#
--- ./SuSE/perllocal.SuSE.orig 2009-09-04 07:01:37.000000000 +0000 --- ./SuSE/perllocal.SuSE.orig 2010-03-23 11:31:19.000000000 +0000
+++ ./SuSE/perllocal.SuSE 2009-09-04 07:01:37.000000000 +0000 +++ ./SuSE/perllocal.SuSE 2010-03-23 11:31:19.000000000 +0000
@@ -0,0 +1,84 @@ @@ -0,0 +1,84 @@
+#!/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.
@ -259,8 +259,8 @@
+ 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 2009-09-04 07:01:37.000000000 +0000 --- ./SuSE/sysconfig.suseconfig-perl.orig 2010-03-23 11:31:19.000000000 +0000
+++ ./SuSE/sysconfig.suseconfig-perl 2009-09-04 07:01:37.000000000 +0000 +++ ./SuSE/sysconfig.suseconfig-perl 2010-03-23 11:31:19.000000000 +0000
@@ -0,0 +1,8 @@ @@ -0,0 +1,8 @@
+## Path: System/SuSEconfig +## Path: System/SuSEconfig
+## Type: yesno +## Type: yesno
@ -270,8 +270,42 @@
+# May SuSEconfig modify your perllocal.pod? (yes/no) +# May SuSEconfig modify your perllocal.pod? (yes/no)
+# +#
+CREATE_PERLLOCAL_POD="yes" +CREATE_PERLLOCAL_POD="yes"
--- ./ext/Compress-Raw-Zlib/config.in.orig 2009-04-14 18:20:34.000000000 +0000 --- ./cpan/CGI/lib/CGI/Fast.pm.orig 2010-03-23 15:04:37.000000000 +0000
+++ ./ext/Compress-Raw-Zlib/config.in 2009-09-04 07:01:37.000000000 +0000 +++ ./cpan/CGI/lib/CGI/Fast.pm 2010-03-23 15:05:01.000000000 +0000
@@ -26,6 +26,9 @@ use vars qw(
);
@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) { }
--- ./cpan/CPAN/lib/CPAN.pm.orig 2010-03-23 15:23:09.000000000 +0000
+++ ./cpan/CPAN/lib/CPAN.pm 2010-03-23 15:23:20.000000000 +0000
@@ -64,7 +64,7 @@ sub _uniq;
no lib ".";
-require Mac::BuildTools if $^O eq 'MacOS';
+#require Mac::BuildTools if $^O eq 'MacOS';
if ($ENV{PERL5_CPAN_IS_RUNNING} && $$ != $ENV{PERL5_CPAN_IS_RUNNING}) {
$ENV{PERL5_CPAN_IS_RUNNING_IN_RECURSION} ||= $ENV{PERL5_CPAN_IS_RUNNING};
my @rec = _uniq split(/,/, $ENV{PERL5_CPAN_IS_RUNNING_IN_RECURSION}), $$;
--- ./cpan/CPANPLUS/lib/CPANPLUS/Internals/Constants/Report.pm.orig 2010-03-23 15:12:55.000000000 +0000
+++ ./cpan/CPANPLUS/lib/CPANPLUS/Internals/Constants/Report.pm 2010-03-23 15:13:29.000000000 +0000
@@ -237,6 +237,8 @@ Thanks! :-)
.
};
+our $RPM_Ignore_Requires = "perl(Your::Module::Here)";
+
use constant REPORT_MISSING_TESTS
=> sub {
return << ".";
--- ./cpan/Compress-Raw-Zlib/config.in.orig 2010-03-23 15:01:12.000000000 +0000
+++ ./cpan/Compress-Raw-Zlib/config.in 2010-03-23 15:02:19.000000000 +0000
@@ -16,9 +16,9 @@ @@ -16,9 +16,9 @@
# Setting the Gzip OS Code # Setting the Gzip OS Code
# #
@ -285,18 +319,19 @@
OLD_ZLIB = False OLD_ZLIB = False
GZIP_OS_CODE = AUTO_DETECT GZIP_OS_CODE = AUTO_DETECT
--- ./ext/DynaLoader/hints/linux.pl.orig 2009-02-12 22:58:11.000000000 +0000 --- ./cpan/Cwd/lib/File/Spec/VMS.pm.orig 2010-03-23 15:10:49.000000000 +0000
+++ ./ext/DynaLoader/hints/linux.pl 2009-09-04 07:01:37.000000000 +0000 +++ ./cpan/Cwd/lib/File/Spec/VMS.pm 2010-03-23 15:11:11.000000000 +0000
@@ -2,4 +2,7 @@ @@ -12,6 +12,8 @@ $VERSION = eval $VERSION;
# Some Linux releases like to hide their <nlist.h> use File::Basename;
$self->{CCFLAGS} = $Config{ccflags} . ' -I/usr/include/libelf' use VMS::Filespec;
if -f "/usr/include/libelf/nlist.h";
+# Some silly modules like mod_perl use DynaLoader.a in a shared +our $RPM_Ignore_Requires = "perl(VMS::Filespec)";
+# 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'; =head1 NAME
1;
--- ./ext/Encode/bin/enc2xs.orig 2009-04-12 17:18:06.000000000 +0000 File::Spec::VMS - methods for VMS file specs
+++ ./ext/Encode/bin/enc2xs 2009-09-04 07:01:37.000000000 +0000 --- ./cpan/Encode/bin/enc2xs.orig 2010-03-23 11:34:24.000000000 +0000
+++ ./cpan/Encode/bin/enc2xs 2010-03-23 11:35:34.000000000 +0000
@@ -1005,13 +1005,13 @@ sub make_configlocal_pm { @@ -1005,13 +1005,13 @@ sub make_configlocal_pm {
$LocalMod{$enc} ||= $mod; $LocalMod{$enc} ||= $mod;
} }
@ -313,8 +348,66 @@
$_LocalVer = _mkversion(); $_LocalVer = _mkversion();
$_E2X = find_e2x(); $_E2X = find_e2x();
$_Inc = $INC{"Encode.pm"}; $_Inc = $INC{"Encode.pm"};
--- ./ext/NDBM_File/Makefile.PL.orig 2009-04-19 17:02:38.000000000 +0000 --- ./cpan/File-Temp/Temp.pm.orig 2010-03-23 15:11:55.000000000 +0000
+++ ./ext/NDBM_File/Makefile.PL 2009-09-04 07:01:37.000000000 +0000 +++ ./cpan/File-Temp/Temp.pm 2010-03-23 15:12:16.000000000 +0000
@@ -146,7 +146,7 @@ use File::Path qw/ rmtree /;
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
--- ./cpan/Sys-Syslog/t/syslog.t.orig 2010-03-23 14:58:56.000000000 +0000
+++ ./cpan/Sys-Syslog/t/syslog.t 2010-03-23 15:00:07.000000000 +0000
@@ -206,6 +206,7 @@ SKIP: {
}
}
else {
+ $r = 1 unless -e '/dev/log';
ok( $r, "setlogsock() should return true: '$r'" );
}
--- ./cpan/libnet/Net/Config.pm.orig 2010-03-23 15:06:09.000000000 +0000
+++ ./cpan/libnet/Net/Config.pm 2010-03-23 15:06:27.000000000 +0000
@@ -37,7 +37,7 @@ eval { local $SIG{__DIE__}; require Net:
# 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 = (
--- ./dist/ExtUtils-Install/lib/ExtUtils/Packlist.pm.orig 2010-03-23 15:21:32.000000000 +0000
+++ ./dist/ExtUtils-Install/lib/ExtUtils/Packlist.pm 2010-03-23 15:22:29.000000000 +0000
@@ -206,8 +206,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);
--- ./ext/DynaLoader/hints/linux.pl.orig 2009-02-08 21:40:12.000000000 +0000
+++ ./ext/DynaLoader/hints/linux.pl 2010-03-23 11:31:19.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/NDBM_File/Makefile.PL.orig 2010-01-18 18:43:45.000000000 +0000
+++ ./ext/NDBM_File/Makefile.PL 2010-03-23 11:31:19.000000000 +0000
@@ -2,6 +2,7 @@ use ExtUtils::MakeMaker; @@ -2,6 +2,7 @@ use ExtUtils::MakeMaker;
WriteMakefile( WriteMakefile(
NAME => 'NDBM_File', NAME => 'NDBM_File',
@ -323,8 +416,8 @@
XSPROTOARG => '-noprototypes', # XXX remove later? XSPROTOARG => '-noprototypes', # XXX remove later?
VERSION_FROM => 'NDBM_File.pm', VERSION_FROM => 'NDBM_File.pm',
INC => ($^O eq "MacOS" ? "-i ::::db:include" : "") INC => ($^O eq "MacOS" ? "-i ::::db:include" : "")
--- ./ext/ODBM_File/Makefile.PL.orig 2009-04-19 17:02:38.000000000 +0000 --- ./ext/ODBM_File/Makefile.PL.orig 2010-01-18 18:43:45.000000000 +0000
+++ ./ext/ODBM_File/Makefile.PL 2009-09-04 07:01:37.000000000 +0000 +++ ./ext/ODBM_File/Makefile.PL 2010-03-23 11:31:19.000000000 +0000
@@ -1,7 +1,7 @@ @@ -1,7 +1,7 @@
use ExtUtils::MakeMaker; use ExtUtils::MakeMaker;
WriteMakefile( WriteMakefile(
@ -334,8 +427,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 2009-02-12 22:58:12.000000000 +0000 --- ./ext/ODBM_File/hints/linux.pl.orig 2010-01-18 18:43:45.000000000 +0000
+++ ./ext/ODBM_File/hints/linux.pl 2009-09-04 07:01:37.000000000 +0000 +++ ./ext/ODBM_File/hints/linux.pl 2010-03-23 11:31:19.000000000 +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'];
@ -343,18 +436,8 @@
# Debian/Ubuntu have /usr/lib/libgdbm_compat.so.3* but not this file, # Debian/Ubuntu have /usr/lib/libgdbm_compat.so.3* but not this file,
# so linking may fail # so linking may fail
--- ./ext/Sys-Syslog/t/syslog.t.orig 2009-06-10 16:53:46.000000000 +0000 --- ./hints/linux.sh.orig 2010-01-18 18:52:49.000000000 +0000
+++ ./ext/Sys-Syslog/t/syslog.t 2009-09-04 07:01:37.000000000 +0000 +++ ./hints/linux.sh 2010-03-23 11:31:19.000000000 +0000
@@ -213,6 +213,7 @@ SKIP: {
}
}
else {
+ $r = 1 unless -e '/dev/log';
ok( $r, "setlogsock() should return true: '$r'" );
}
--- ./hints/linux.sh.orig 2009-02-12 22:58:12.000000000 +0000
+++ ./hints/linux.sh 2009-09-04 07:01:37.000000000 +0000
@@ -50,12 +50,14 @@ ignore_versioned_solibs='y' @@ -50,12 +50,14 @@ 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.
@ -392,7 +475,7 @@
libc=`ls -l /lib/libc.so.6 | awk '{print $NF}'` libc=`ls -l /lib/libc.so.6 | awk '{print $NF}'`
libc=/lib/$libc libc=/lib/$libc
fi fi
@@ -143,9 +156,14 @@ case "$optimize" in @@ -148,9 +161,14 @@ case "$optimize" in
esac esac
;; ;;
esac esac
@ -407,7 +490,7 @@
# Are we using ELF? Thanks to Kenneth Albanowski <kjahds@kjahds.com> # Are we using ELF? Thanks to Kenneth Albanowski <kjahds@kjahds.com>
# for this test. # for this test.
cat >try.c <<'EOM' cat >try.c <<'EOM'
@@ -230,6 +248,29 @@ EOM @@ -235,6 +253,29 @@ EOM
esac esac
fi fi
@ -426,7 +509,7 @@
+ +
+usedl='true' +usedl='true'
+dlsrc='dl_dlopen.xs' +dlsrc='dl_dlopen.xs'
+d_dosuid='define' +d_dosuid='undef'
+d_bincompat3='y' +d_bincompat3='y'
+ +
+# We don't want to add /usr/local/include and /usr/local/lib to the search +# We don't want to add /usr/local/include and /usr/local/lib to the search
@ -437,7 +520,7 @@
rm -f try.c a.out rm -f try.c a.out
if /bin/sh -c exit; then if /bin/sh -c exit; then
@@ -279,6 +320,9 @@ else @@ -284,6 +325,9 @@ else
echo "Couldn't find tcsh. Csh-based globbing might be broken." echo "Couldn't find tcsh. Csh-based globbing might be broken."
fi fi
fi fi
@ -447,7 +530,7 @@
# Shimpei Yamashita <shimpei@socrates.patnet.caltech.edu> # Shimpei Yamashita <shimpei@socrates.patnet.caltech.edu>
# Message-Id: <33EF1634.B36B6500@pobox.com> # Message-Id: <33EF1634.B36B6500@pobox.com>
@@ -357,6 +401,8 @@ $define|true|[yY]*) @@ -362,6 +406,8 @@ $define|true|[yY]*)
d_localtime_r_proto="$define" d_localtime_r_proto="$define"
d_random_r_proto="$define" d_random_r_proto="$define"
@ -456,126 +539,9 @@
;; ;;
esac esac
EOCBU EOCBU
--- ./installperl.orig 2009-08-13 22:40:10.000000000 +0000 --- ./lib/perl5db.pl.orig 2010-01-18 18:52:49.000000000 +0000
+++ ./installperl 2009-09-04 07:01:37.000000000 +0000 +++ ./lib/perl5db.pl 2010-03-23 11:31:19.000000000 +0000
@@ -235,7 +235,7 @@ if ($Is_VMS) { # Hang in there until Fi @@ -3400,6 +3400,8 @@ reading another.
# Do some quick sanity checks.
-if (!$opts{notify} && $d_dosuid && $>) { die "You must run as root to install suidperl\n"; }
+#if (!$opts{notify} && $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, $opts{verbose}, 0777);
@@ -344,7 +344,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/CGI/Fast.pm.orig 2009-02-12 22:58:12.000000000 +0000
+++ ./lib/CGI/Fast.pm 2009-09-04 07:01:37.000000000 +0000
@@ -19,6 +19,9 @@ use CGI;
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) { }
--- ./lib/CPAN.pm.orig 2009-06-27 21:21:54.000000000 +0000
+++ ./lib/CPAN.pm 2009-09-04 07:01:37.000000000 +0000
@@ -64,7 +64,7 @@ sub _uniq;
no lib ".";
-require Mac::BuildTools if $^O eq 'MacOS';
+#require Mac::BuildTools if $^O eq 'MacOS';
if ($ENV{PERL5_CPAN_IS_RUNNING} && $$ != $ENV{PERL5_CPAN_IS_RUNNING}) {
$ENV{PERL5_CPAN_IS_RUNNING_IN_RECURSION} ||= $ENV{PERL5_CPAN_IS_RUNNING};
my @rec = _uniq split(/,/, $ENV{PERL5_CPAN_IS_RUNNING_IN_RECURSION}), $$;
--- ./lib/CPANPLUS/Internals/Constants/Report.pm.orig 2009-05-03 23:51:10.000000000 +0000
+++ ./lib/CPANPLUS/Internals/Constants/Report.pm 2009-09-04 07:01:37.000000000 +0000
@@ -236,6 +236,8 @@ Thanks! :-)
.
};
+our $RPM_Ignore_Requires = "perl(Your::Module::Here)";
+
use constant REPORT_MISSING_TESTS
=> sub {
return << ".";
--- ./lib/Carp/Heavy.pm.orig 2009-02-12 22:58:13.000000000 +0000
+++ ./lib/Carp/Heavy.pm 2009-09-04 07:01:37.000000000 +0000
@@ -30,6 +30,7 @@ $CarpInternal{warnings}++;
$Internal{Exporter}++;
$Internal{'Exporter::Heavy'}++;
+our $RPM_Ignore_Requires = "perl(Carp::Heavy)";
our ($CarpLevel, $MaxArgNums, $MaxEvalLen, $MaxArgLen, $Verbose);
--- ./lib/ExtUtils/Packlist.pm.orig 2009-02-12 22:58:13.000000000 +0000
+++ ./lib/ExtUtils/Packlist.pm 2009-09-04 07:01:37.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/File/Spec/VMS.pm.orig 2009-05-10 23:30:12.000000000 +0000
+++ ./lib/File/Spec/VMS.pm 2009-09-04 07:01:37.000000000 +0000
@@ -12,6 +12,8 @@ $VERSION = eval $VERSION;
use File::Basename;
use VMS::Filespec;
+our $RPM_Ignore_Requires = "perl(VMS::Filespec)";
+
=head1 NAME
File::Spec::VMS - methods for VMS file specs
--- ./lib/File/Temp.pm.orig 2009-06-30 13:13:54.000000000 +0000
+++ ./lib/File/Temp.pm 2009-09-04 07:01:37.000000000 +0000
@@ -146,7 +146,7 @@ use File::Path qw/ rmtree /;
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/Net/Config.pm.orig 2009-02-12 22:58:14.000000000 +0000
+++ ./lib/Net/Config.pm 2009-09-04 07:01:37.000000000 +0000
@@ -37,7 +37,7 @@ eval { local $SIG{__DIE__}; require Net:
# 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/perl5db.pl.orig 2009-07-25 22:36:07.000000000 +0000
+++ ./lib/perl5db.pl 2009-09-04 07:01:37.000000000 +0000
@@ -3396,6 +3396,8 @@ reading another.
open( OUT, ">&STDOUT" ) # XXX: lost message open( OUT, ">&STDOUT" ) # XXX: lost message
|| &warn("Can't restore DB::OUT"); || &warn("Can't restore DB::OUT");
} }
@ -584,7 +550,7 @@
next CMD; next CMD;
} ## end unless ($piped = open(OUT,... } ## end unless ($piped = open(OUT,...
@@ -3520,6 +3522,8 @@ our standard filehandles for input and o @@ -3524,6 +3526,8 @@ our standard filehandles for input and o
# if necessary, # if necessary,
close(SAVEOUT); close(SAVEOUT);
select($selected), $selected = "" unless $selected eq ""; select($selected), $selected = "" unless $selected eq "";
@ -593,19 +559,8 @@
# No pipes now. # No pipes now.
$piped = ""; $piped = "";
--- ./lib/unicore/mktables.orig 2009-04-12 20:56:19.000000000 +0000 --- ./locale.c.orig 2010-01-18 18:52:49.000000000 +0000
+++ ./lib/unicore/mktables 2009-09-04 07:01:37.000000000 +0000 +++ ./locale.c 2010-03-23 11:31:19.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 5.1.
--- ./locale.c.orig 2009-03-19 19:56:24.000000000 +0000
+++ ./locale.c 2009-09-04 07:01:37.000000000 +0000
@@ -357,9 +357,15 @@ Perl_init_i18nl10n(pTHX_ int printwarn) @@ -357,9 +357,15 @@ Perl_init_i18nl10n(pTHX_ int printwarn)
if (setlocale_failure) { if (setlocale_failure) {
@ -622,30 +577,8 @@
if (locwarn) { if (locwarn) {
#ifdef LC_ALL #ifdef LC_ALL
--- ./t/TEST.orig 2009-08-04 22:06:15.000000000 +0000 --- ./t/op/numconvert.t.orig 2010-01-18 18:43:46.000000000 +0000
+++ ./t/TEST 2009-09-04 07:01:37.000000000 +0000 +++ ./t/op/numconvert.t 2010-03-23 11:31:19.000000000 +0000
@@ -156,6 +156,7 @@ unless (@ARGV) {
next if $skip{$flat_extension}; # Foo/Bar may live in Foo-Bar
}
my $path = File::Spec->catfile($updir, $t);
+ next unless -e $path;
push @ARGV, $path;
$::path_to_name{$path} = $t;
}
--- ./t/harness.orig 2009-04-19 16:47:00.000000000 +0000
+++ ./t/harness 2009-09-04 07:01:37.000000000 +0000
@@ -199,7 +199,8 @@ if (@ARGV) {
$flat_extension =~ s!-!/!g;
next if $skip{$flat_extension}; # Foo/Bar may live in Foo-Bar
}
- 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 2009-06-10 16:53:47.000000000 +0000
+++ ./t/op/numconvert.t 2009-09-04 07:01:37.000000000 +0000
@@ -46,7 +46,7 @@ my $max_chain = $ENV{PERL_TEST_NUMCONVER @@ -46,7 +46,7 @@ my $max_chain = $ENV{PERL_TEST_NUMCONVER
# Bulk out if unsigned type is hopelessly wrong: # Bulk out if unsigned type is hopelessly wrong:
@ -655,9 +588,9 @@
my $big_iv = do {use integer; $max_uv1 * 16}; # 16 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; my $max_uv_less3 = $max_uv1 - 3;
--- ./utils/perlbug.PL.orig 2009-08-12 18:49:24.000000000 +0000 --- ./utils/perlbug.PL.orig 2010-03-07 17:53:22.000000000 +0000
+++ ./utils/perlbug.PL 2009-09-04 07:01:37.000000000 +0000 +++ ./utils/perlbug.PL 2010-03-23 11:31:19.000000000 +0000
@@ -1077,6 +1077,7 @@ sub _message_headers { @@ -1083,6 +1083,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);

8
perl-gracefull-net-ftp.diff
View File

@ -9,8 +9,8 @@ Command line ftp clients handle this gracefully, so should we.
With this patch, LWP clients see a status_line of "500 This server is busy, ..." With this patch, LWP clients see a status_line of "500 This server is busy, ..."
2006-12-20, jw@suse.de 2006-12-20, jw@suse.de
--- lib/Net/FTP.pm.orig 2007-12-18 10:47:07.000000000 +0000 --- cpan/libnet/Net/FTP.pm.orig 2007-12-18 10:47:07.000000000 +0000
+++ lib/Net/FTP.pm 2008-01-07 10:08:30.000000000 +0000 +++ cpan/libnet/Net/FTP.pm 2008-01-07 10:08:30.000000000 +0000
@@ -107,7 +107,7 @@ sub new { @@ -107,7 +107,7 @@ sub new {
unless ($ftp->response() == CMD_OK) { unless ($ftp->response() == CMD_OK) {
@ -38,8 +38,8 @@ With this patch, LWP clients see a status_line of "500 This server is busy, ..."
(${*$ftp}{'net_cmd_code'}, 1); (${*$ftp}{'net_cmd_code'}, 1);
} }
--- lib/Net/Cmd.pm.orig 2007-12-18 10:47:07.000000000 +0000 --- cpan/libnet/Net/Cmd.pm.orig 2007-12-18 10:47:07.000000000 +0000
+++ lib/Net/Cmd.pm 2008-01-07 10:09:34.000000000 +0000 +++ cpan/libnet/Net/Cmd.pm 2008-01-07 10:09:34.000000000 +0000
@@ -353,6 +353,7 @@ sub response { @@ -353,6 +353,7 @@ sub response {
($code, $more) = $cmd->parse_response($str); ($code, $more) = $cmd->parse_response($str);
unless (defined $code) { unless (defined $code) {

6
perl-netcmdutf8.diff
View File

@ -1,5 +1,5 @@
--- lib/Net/Cmd.pm.orig 2009-06-10 09:23:18.000000000 +0000 --- ./cpan/libnet/Net/Cmd.pm.orig 2009-09-03 14:32:13.000000000 +0000
+++ lib/Net/Cmd.pm 2009-06-10 09:25:49.000000000 +0000 +++ ./cpan/libnet/Net/Cmd.pm 2009-09-03 14:47:30.000000000 +0000
@@ -226,6 +226,10 @@ sub command { @@ -226,6 +226,10 @@ sub command {
$str = $cmd->toascii($str) if $tr; $str = $cmd->toascii($str) if $tr;
$str .= "\015\012"; $str .= "\015\012";
@ -11,7 +11,7 @@
my $len = length $str; my $len = length $str;
my $swlen; my $swlen;
@@ -471,6 +475,10 @@ sub rawdatasend { @@ -473,6 +477,10 @@ sub rawdatasend {
return 0 unless defined(fileno($cmd)); return 0 unless defined(fileno($cmd));

8
perl-nroff.diff
View File

@ -1,6 +1,6 @@
--- ./lib/Pod/Perldoc.pm.orig 2009-01-14 14:57:51.000000000 +0000 --- dist/Pod-Perldoc/lib/Pod/Perldoc.pm.orig 2010-02-17 14:35:24.000000000 +0000
+++ ./lib/Pod/Perldoc.pm 2009-01-14 14:58:15.000000000 +0000 +++ dist/Pod-Perldoc/lib/Pod/Perldoc.pm 2010-03-23 15:40:17.000000000 +0000
@@ -648,7 +648,7 @@ sub options_processing { @@ -655,7 +655,7 @@ sub options_processing {
$self->options_sanity; $self->options_sanity;
@ -8,4 +8,4 @@
+ $self->opt_n("nroff -c") unless $self->opt_n; + $self->opt_n("nroff -c") unless $self->opt_n;
$self->add_formatter_option( '__nroffer' => $self->opt_n ); $self->add_formatter_option( '__nroffer' => $self->opt_n );
# Adjust for using translation packages # Get language from PERLDOC_POD2 environment variable

12
perl-regexp-refoverflow.diff
View File

@ -1,6 +1,6 @@
--- regcomp.c --- regcomp.c.orig 2010-02-28 20:12:22.000000000 +0000
+++ regcomp.c +++ regcomp.c 2010-03-23 15:38:55.000000000 +0000
@@ -5713,7 +5713,7 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I @@ -5818,7 +5818,7 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I
ret = reganode(pRExC_state, GOSUB, num); ret = reganode(pRExC_state, GOSUB, num);
if (!SIZE_ONLY) { if (!SIZE_ONLY) {
@ -9,7 +9,7 @@
RExC_parse++; RExC_parse++;
vFAIL("Reference to nonexistent group"); vFAIL("Reference to nonexistent group");
} }
@@ -7132,7 +7132,7 @@ tryagain: @@ -7260,7 +7260,7 @@ tryagain:
if (num < 1) if (num < 1)
vFAIL("Reference to nonexistent or unclosed group"); vFAIL("Reference to nonexistent or unclosed group");
} }
@ -18,7 +18,7 @@
goto defchar; goto defchar;
else { else {
char * const parse_start = RExC_parse - 1; /* MJD */ char * const parse_start = RExC_parse - 1; /* MJD */
@@ -7146,7 +7146,7 @@ tryagain: @@ -7274,7 +7274,7 @@ tryagain:
RExC_parse++; RExC_parse++;
} }
if (!SIZE_ONLY) { if (!SIZE_ONLY) {
@ -27,7 +27,7 @@
vFAIL("Reference to nonexistent group"); vFAIL("Reference to nonexistent group");
} }
RExC_sawback = 1; RExC_sawback = 1;
@@ -7323,7 +7323,7 @@ tryagain: @@ -7451,7 +7451,7 @@ tryagain:
case '0': case '1': case '2': case '3':case '4': case '0': case '1': case '2': case '3':case '4':
case '5': case '6': case '7': case '8':case '9': case '5': case '6': case '7': case '8':case '9':
if (*p == '0' || if (*p == '0' ||

29
perl-threads.diff
View File

@ -1,29 +0,0 @@
--- ext/threads/threads.xs.orig 2009-09-04 06:58:42.000000000 +0000
+++ ext/threads/threads.xs 2009-09-04 07:00:10.000000000 +0000
@@ -603,8 +603,10 @@ S_ithread_create(
ithread *thread;
ithread *current_thread = S_ithread_get(aTHX);
+#if 0
SV **tmps_tmp = PL_tmps_stack;
IV tmps_ix = PL_tmps_ix;
+#endif
#ifndef WIN32
int rc_stack_size = 0;
int rc_thread_create = 0;
@@ -695,6 +697,7 @@ S_ithread_create(
thread->params = sv_dup(params, &clone_param);
SvREFCNT_inc_void(thread->params);
+#if 0
/* The code below checks that anything living on the tmps stack and
* has been cloned (so it lives in the ptr_table) has a refcount
* higher than 0.
@@ -717,6 +720,7 @@ S_ithread_create(
SvREFCNT_dec(sv);
}
}
+#endif
SvTEMP_off(thread->init_function);
ptr_table_free(PL_ptr_table);

17
perl.changes
View File

@ -1,3 +1,20 @@
-------------------------------------------------------------------
Wed Mar 31 19:24:32 CEST 2010 - mls@suse.de
- update to perl-5.12.0-RC1
* mostly documentation updates
* some regression fixes
-------------------------------------------------------------------
Wed Mar 24 14:05:46 CET 2010 - mls@suse.de
- update to perl-5.12.0-RC0
* new ... operator
* unicode improvements
* "each" now also works on arrays
* support for "delete local"
* suidperl was dropped
------------------------------------------------------------------- -------------------------------------------------------------------
Fri Feb 12 10:53:11 UTC 2010 - chris@computersalat.de Fri Feb 12 10:53:11 UTC 2010 - chris@computersalat.de

203
perl.spec
View File

@ -1,5 +1,5 @@
# #
# spec file for package perl (Version 5.10.1) # spec file for package perl (Version 5.11.99.RC1)
# #
# Copyright (c) 2010 SUSE LINUX Products GmbH, Nuernberg, Germany. # Copyright (c) 2010 SUSE LINUX Products GmbH, Nuernberg, Germany.
# #
@ -20,24 +20,24 @@
Name: perl Name: perl
Summary: The Perl interpreter Summary: The Perl interpreter
Version: 5.10.1 Version: 5.11.99.RC1
Release: 5 Release: 1
%define pversion 5.12.0
License: Artistic License .. ; GPLv2+ License: Artistic License .. ; GPLv2+
Group: Development/Languages/Perl Group: Development/Languages/Perl
AutoReqProv: on AutoReqProv: on
Url: http://www.perl.org/ Url: http://www.perl.org/
Source: perl-%{version}.tar.bz2 Source: perl-5.12.0-RC1.tar.bz2
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-%{version}.dif Patch0: perl-%{pversion}.dif
Patch1: perl-gracefull-net-ftp.diff Patch1: perl-gracefull-net-ftp.diff
Patch2: perl-fix_dbmclose_call.patch Patch2: perl-fix_dbmclose_call.patch
Patch3: perl-regexp-refoverflow.diff Patch3: perl-regexp-refoverflow.diff
Patch4: perl-nroff.diff Patch4: perl-nroff.diff
Patch5: perl-netcmdutf8.diff Patch5: perl-netcmdutf8.diff
Patch6: perl-threads.diff
BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRoot: %{_tmppath}/%{name}-%{version}-build
PreReq: perl-base = %version PreReq: perl-base = %version
#PreReq: %fillup_prereq #PreReq: %fillup_prereq
@ -45,6 +45,10 @@ BuildRequires: db-devel gdbm-devel libbz2-devel ncurses-devel zlib-devel
#Requires: gzip # needed in SuSEconfig.perl #Requires: gzip # needed in SuSEconfig.perl
Recommends: perl-doc = %version Recommends: perl-doc = %version
# #
%if "%version" != "%pversion"
Provides: perl = %pversion-%release
%endif
Provides: perl(:MODULE_COMPAT_%pversion)
Provides: perl-500 Provides: perl-500
Provides: perl-macros Provides: perl-macros
Obsoletes: perl-macros Obsoletes: perl-macros
@ -133,7 +137,7 @@ Authors:
Larry Wall, Louis J. LaBash, Jr. <llabash@siue.edu> Larry Wall, Louis J. LaBash, Jr. <llabash@siue.edu>
%prep %prep
%setup -q -n perl-5.10.1 %setup -q -n perl-5.12.0-RC1
cp -p %{S:3} . cp -p %{S:3} .
%patch0 %patch0
%patch1 %patch1
@ -141,9 +145,9 @@ cp -p %{S:3} .
%patch3 %patch3
%patch4 %patch4
%patch5 %patch5
%patch6
%build %build
cp -a lib savelib
export SUSE_ASNEEDED=0 export SUSE_ASNEEDED=0
export BZIP2_LIB=%{_libdir} export BZIP2_LIB=%{_libdir}
export BZIP2_INCLUDE=%{_includedir} export BZIP2_INCLUDE=%{_includedir}
@ -161,20 +165,19 @@ options="$options -Accflags='-DPERL_USE_SAFE_PUTENV'"
chmod 755 ./configure.gnu chmod 755 ./configure.gnu
./configure.gnu --prefix=/usr -Dvendorprefix=/usr -Dinstallusrbinperl -Dusethreads -Di_db -Di_dbm -Di_ndbm -Di_gdbm -Duseshrplib=\'true\' $options ./configure.gnu --prefix=/usr -Dvendorprefix=/usr -Dinstallusrbinperl -Dusethreads -Di_db -Di_dbm -Di_ndbm -Di_gdbm -Duseshrplib=\'true\' $options
make %{?jobs:-j%jobs}; make %{?jobs:-j%jobs};
mv libperl.so savelibperl.so cp -p libperl.so savelibperl.so
mv lib/Config.pm saveConfig.pm cp -p lib/Config.pm saveConfig.pm
mv lib/Config_heavy.pl saveConfig_heavy.pl cp -p lib/Config_heavy.pl saveConfig_heavy.pl
make clean > /dev/null
make clobber make clobber
rm -rf lib
mv savelib lib
./configure.gnu --prefix=/usr -Dvendorprefix=/usr -Dinstallusrbinperl -Dusethreads -Di_db -Di_dbm -Di_ndbm -Di_gdbm $options ./configure.gnu --prefix=/usr -Dvendorprefix=/usr -Dinstallusrbinperl -Dusethreads -Di_db -Di_dbm -Di_ndbm -Di_gdbm $options
make %{?jobs:-j%jobs}; make %{?jobs:-j%jobs};
%ifnarch %arm
%check %check
%ifnarch %arm
export SUSE_ASNEEDED=0 export SUSE_ASNEEDED=0
# delete broken File::Find test
rm -f lib/File/Find/t/find.t
# delete racy test
rm -f t/op/getppid.t
make test make test
%endif %endif
@ -218,7 +221,7 @@ rm $RPM_BUILD_ROOT/usr/lib/perl5/*/*/CORE/libperl.a
$RPM_BUILD_ROOT/usr/bin/perl -e '$r=chr(128)."\\x{100}";/$r/' $RPM_BUILD_ROOT/usr/bin/perl -e '$r=chr(128)."\\x{100}";/$r/'
# test perl-regexp-refoverflow.diff # test perl-regexp-refoverflow.diff
$RPM_BUILD_ROOT/usr/bin/perl -e '/\6666666666/' $RPM_BUILD_ROOT/usr/bin/perl -e '/\6666666666/'
%if 1 %if 0
# remove unrelated target/os manpages # remove unrelated target/os manpages
rm $RPM_BUILD_ROOT/usr/share/man/man1/perlaix.1* rm $RPM_BUILD_ROOT/usr/share/man/man1/perlaix.1*
rm $RPM_BUILD_ROOT/usr/share/man/man1/perlamiga.1* rm $RPM_BUILD_ROOT/usr/share/man/man1/perlamiga.1*
@ -253,81 +256,81 @@ rm $RPM_BUILD_ROOT/usr/share/man/man1/perlvos.1*
rm $RPM_BUILD_ROOT/usr/share/man/man1/perlwin32.1* rm $RPM_BUILD_ROOT/usr/share/man/man1/perlwin32.1*
%endif %endif
cat << EOF > perl-base-filelist cat << EOF > perl-base-filelist
/usr/lib/perl5/%version/Carp.pm /usr/lib/perl5/%pversion/B/Deparse.pm
/usr/lib/perl5/%version/Carp/ /usr/lib/perl5/%pversion/Carp.pm
/usr/lib/perl5/%version/Class/ /usr/lib/perl5/%pversion/Carp/
/usr/lib/perl5/%version/Config/ /usr/lib/perl5/%pversion/Class/
/usr/lib/perl5/%version/Digest.pm /usr/lib/perl5/%pversion/Config/
/usr/lib/perl5/%version/Digest/ /usr/lib/perl5/%pversion/Digest.pm
/usr/lib/perl5/%version/Exporter.pm /usr/lib/perl5/%pversion/Digest/
/usr/lib/perl5/%version/Exporter/ /usr/lib/perl5/%pversion/Exporter.pm
/usr/lib/perl5/%version/File/ /usr/lib/perl5/%pversion/Exporter/
/usr/lib/perl5/%version/Getopt/ /usr/lib/perl5/%pversion/File/
/usr/lib/perl5/%version/IPC/ /usr/lib/perl5/%pversion/Getopt/
/usr/lib/perl5/%version/Text/ /usr/lib/perl5/%pversion/IPC/
/usr/lib/perl5/%version/Tie/Hash.pm /usr/lib/perl5/%pversion/Text/
/usr/lib/perl5/%version/warnings.pm /usr/lib/perl5/%pversion/Tie/Hash.pm
/usr/lib/perl5/%version/warnings/ /usr/lib/perl5/%pversion/XSLoader.pm
/usr/lib/perl5/%version/AutoLoader.pm /usr/lib/perl5/%pversion/warnings.pm
/usr/lib/perl5/%version/FileHandle.pm /usr/lib/perl5/%pversion/warnings/
/usr/lib/perl5/%version/SelectSaver.pm /usr/lib/perl5/%pversion/AutoLoader.pm
/usr/lib/perl5/%version/Symbol.pm /usr/lib/perl5/%pversion/FileHandle.pm
/usr/lib/perl5/%version/attributes.pm /usr/lib/perl5/%pversion/SelectSaver.pm
/usr/lib/perl5/%version/base.pm /usr/lib/perl5/%pversion/Symbol.pm
/usr/lib/perl5/%version/bytes.pm /usr/lib/perl5/%pversion/base.pm
/usr/lib/perl5/%version/bytes_heavy.pl /usr/lib/perl5/%pversion/bytes.pm
/usr/lib/perl5/%version/constant.pm /usr/lib/perl5/%pversion/bytes_heavy.pl
/usr/lib/perl5/%version/fields.pm /usr/lib/perl5/%pversion/constant.pm
/usr/lib/perl5/%version/feature.pm /usr/lib/perl5/%pversion/fields.pm
/usr/lib/perl5/%version/integer.pm /usr/lib/perl5/%pversion/feature.pm
/usr/lib/perl5/%version/locale.pm /usr/lib/perl5/%pversion/integer.pm
/usr/lib/perl5/%version/overload.pm /usr/lib/perl5/%pversion/locale.pm
/usr/lib/perl5/%version/strict.pm /usr/lib/perl5/%pversion/overload.pm
/usr/lib/perl5/%version/utf8.pm /usr/lib/perl5/%pversion/strict.pm
/usr/lib/perl5/%version/utf8_heavy.pl /usr/lib/perl5/%pversion/utf8.pm
/usr/lib/perl5/%version/vars.pm /usr/lib/perl5/%pversion/utf8_heavy.pl
/usr/lib/perl5/%version/version.pm /usr/lib/perl5/%pversion/vars.pm
/usr/lib/perl5/%version/*-linux-thread-multi*/Data/ /usr/lib/perl5/%pversion/version.pm
/usr/lib/perl5/%version/*-linux-thread-multi*/Digest/ /usr/lib/perl5/%pversion/*-linux-thread-multi*/Data/
/usr/lib/perl5/%version/*-linux-thread-multi*/File/ /usr/lib/perl5/%pversion/*-linux-thread-multi*/Digest/
/usr/lib/perl5/%version/*-linux-thread-multi*/List/ /usr/lib/perl5/%pversion/*-linux-thread-multi*/File/
/usr/lib/perl5/%version/*-linux-thread-multi*/Scalar/ /usr/lib/perl5/%pversion/*-linux-thread-multi*/List/
/usr/lib/perl5/%version/*-linux-thread-multi*/IO.pm /usr/lib/perl5/%pversion/*-linux-thread-multi*/Scalar/
/usr/lib/perl5/%version/*-linux-thread-multi*/IO/Dir.pm /usr/lib/perl5/%pversion/*-linux-thread-multi*/IO.pm
/usr/lib/perl5/%version/*-linux-thread-multi*/IO/File.pm /usr/lib/perl5/%pversion/*-linux-thread-multi*/IO/Dir.pm
/usr/lib/perl5/%version/*-linux-thread-multi*/IO/Handle.pm /usr/lib/perl5/%pversion/*-linux-thread-multi*/IO/File.pm
/usr/lib/perl5/%version/*-linux-thread-multi*/IO/Pipe.pm /usr/lib/perl5/%pversion/*-linux-thread-multi*/IO/Handle.pm
/usr/lib/perl5/%version/*-linux-thread-multi*/IO/Poll.pm /usr/lib/perl5/%pversion/*-linux-thread-multi*/IO/Pipe.pm
/usr/lib/perl5/%version/*-linux-thread-multi*/IO/Seekable.pm /usr/lib/perl5/%pversion/*-linux-thread-multi*/IO/Poll.pm
/usr/lib/perl5/%version/*-linux-thread-multi*/IO/Select.pm /usr/lib/perl5/%pversion/*-linux-thread-multi*/IO/Seekable.pm
/usr/lib/perl5/%version/*-linux-thread-multi*/IO/Socket.pm /usr/lib/perl5/%pversion/*-linux-thread-multi*/IO/Select.pm
/usr/lib/perl5/%version/*-linux-thread-multi*/IO/Socket/ /usr/lib/perl5/%pversion/*-linux-thread-multi*/IO/Socket.pm
/usr/lib/perl5/%version/*-linux-thread-multi*/B.pm /usr/lib/perl5/%pversion/*-linux-thread-multi*/IO/Socket/
/usr/lib/perl5/%version/*-linux-thread-multi*/B/Deparse.pm /usr/lib/perl5/%pversion/*-linux-thread-multi*/B.pm
/usr/lib/perl5/%version/*-linux-thread-multi*/Config.pm /usr/lib/perl5/%pversion/*-linux-thread-multi*/Config.pm
/usr/lib/perl5/%version/*-linux-thread-multi*/Config_heavy.pl /usr/lib/perl5/%pversion/*-linux-thread-multi*/Config_heavy.pl
/usr/lib/perl5/%version/*-linux-thread-multi*/Cwd.pm /usr/lib/perl5/%pversion/*-linux-thread-multi*/Cwd.pm
/usr/lib/perl5/%version/*-linux-thread-multi*/DynaLoader.pm /usr/lib/perl5/%pversion/*-linux-thread-multi*/DynaLoader.pm
/usr/lib/perl5/%version/*-linux-thread-multi*/Errno.pm /usr/lib/perl5/%pversion/*-linux-thread-multi*/Errno.pm
/usr/lib/perl5/%version/*-linux-thread-multi*/Fcntl.pm /usr/lib/perl5/%pversion/*-linux-thread-multi*/Fcntl.pm
/usr/lib/perl5/%version/*-linux-thread-multi*/POSIX.pm /usr/lib/perl5/%pversion/*-linux-thread-multi*/POSIX.pm
/usr/lib/perl5/%version/*-linux-thread-multi*/Socket.pm /usr/lib/perl5/%pversion/*-linux-thread-multi*/Socket.pm
/usr/lib/perl5/%version/*-linux-thread-multi*/XSLoader.pm /usr/lib/perl5/%pversion/*-linux-thread-multi*/attributes.pm
/usr/lib/perl5/%version/*-linux-thread-multi*/auto/Data/ /usr/lib/perl5/%pversion/*-linux-thread-multi*/auto/Data/
/usr/lib/perl5/%version/*-linux-thread-multi*/auto/Digest/ /usr/lib/perl5/%pversion/*-linux-thread-multi*/auto/Digest/
/usr/lib/perl5/%version/*-linux-thread-multi*/auto/Fcntl/ /usr/lib/perl5/%pversion/*-linux-thread-multi*/auto/Fcntl/
/usr/lib/perl5/%version/*-linux-thread-multi*/auto/File/ /usr/lib/perl5/%pversion/*-linux-thread-multi*/auto/File/
/usr/lib/perl5/%version/*-linux-thread-multi*/auto/IO/ /usr/lib/perl5/%pversion/*-linux-thread-multi*/auto/IO/
/usr/lib/perl5/%version/*-linux-thread-multi*/auto/List/ /usr/lib/perl5/%pversion/*-linux-thread-multi*/auto/List/
/usr/lib/perl5/%version/*-linux-thread-multi*/auto/Cwd/ /usr/lib/perl5/%pversion/*-linux-thread-multi*/auto/Cwd/
/usr/lib/perl5/%version/*-linux-thread-multi*/auto/DynaLoader/ /usr/lib/perl5/%pversion/*-linux-thread-multi*/auto/DynaLoader/
/usr/lib/perl5/%version/*-linux-thread-multi*/auto/Socket/ /usr/lib/perl5/%pversion/*-linux-thread-multi*/auto/Socket/
/usr/lib/perl5/%version/*-linux-thread-multi*/auto/POSIX/POSIX.bs /usr/lib/perl5/%pversion/*-linux-thread-multi*/auto/POSIX/POSIX.bs
/usr/lib/perl5/%version/*-linux-thread-multi*/auto/POSIX/POSIX.so /usr/lib/perl5/%pversion/*-linux-thread-multi*/auto/POSIX/POSIX.so
/usr/lib/perl5/%version/*-linux-thread-multi*/auto/POSIX/autosplit.ix /usr/lib/perl5/%pversion/*-linux-thread-multi*/auto/POSIX/autosplit.ix
/usr/lib/perl5/%version/*-linux-thread-multi*/auto/POSIX/load_imports.al /usr/lib/perl5/%pversion/*-linux-thread-multi*/auto/POSIX/load_imports.al
/usr/lib/perl5/%version/*-linux-thread-multi*/lib.pm /usr/lib/perl5/%pversion/*-linux-thread-multi*/lib.pm
/usr/lib/perl5/%version/*-linux-thread-multi*/re.pm /usr/lib/perl5/%pversion/*-linux-thread-multi*/re.pm
EOF EOF
{ {
sed -e 's/^/%%exclude /' perl-base-filelist sed -e 's/^/%%exclude /' perl-base-filelist
@ -344,21 +347,19 @@ EOF
%files base -f perl-base-filelist %files base -f perl-base-filelist
%defattr(-,root,root) %defattr(-,root,root)
%dir /usr/lib/perl5 %dir /usr/lib/perl5
%dir /usr/lib/perl5/%version %dir /usr/lib/perl5/%pversion
%dir /usr/lib/perl5/%version/*-linux-thread-multi* %dir /usr/lib/perl5/%pversion/B
%dir /usr/lib/perl5/%version/*-linux-thread-multi*/auto %dir /usr/lib/perl5/%pversion/*-linux-thread-multi*
%dir /usr/lib/perl5/%version/*-linux-thread-multi*/B %dir /usr/lib/perl5/%pversion/*-linux-thread-multi*/auto
%dir /usr/lib/perl5/%version/*-linux-thread-multi*/auto/POSIX %dir /usr/lib/perl5/%pversion/*-linux-thread-multi*/auto/POSIX
/usr/bin/perl /usr/bin/perl
/usr/bin/perl%version /usr/bin/perl%pversion
/usr/bin/suidperl
%doc /usr/share/man/man1/perl.1.gz %doc /usr/share/man/man1/perl.1.gz
%files -f perl-base-excludes %files -f perl-base-excludes
%defattr(-,root,root) %defattr(-,root,root)
%exclude /usr/bin/perl %exclude /usr/bin/perl
%exclude /usr/bin/perl%version %exclude /usr/bin/perl%pversion
%exclude /usr/bin/suidperl
%exclude /usr/lib/perl5/*/Unicode/*/*.txt %exclude /usr/lib/perl5/*/Unicode/*/*.txt
%exclude /usr/lib/perl5/*/unicore/*.txt %exclude /usr/lib/perl5/*/unicore/*.txt
/usr/bin/* /usr/bin/*