rpm/perl
SHA256
1
0
Fork 0
forked from pool/perl
Code Pull Requests Activity

update to 5.16.0

Browse Source 
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl?expand=0&rev=76
This commit is contained in:
Michael Schröder 2012-05-23 15:21:30 +00:00 committed by Git OBS Bridge
parent 824088b768
commit 8fdfbcde8a
7 changed files with 162 additions and 94 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
perl-5.14.2.tar.bz2
View File

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

144
perl-5.14.2.dif → perl-5.16.0.dif
View File

@ -1,5 +1,5 @@
--- ./Configure.orig 2011-06-09 20:04:29.000000000 +0000
+++ ./Configure 2011-06-17 09:05:57.000000000 +0000
--- ./Configure.orig 2012-04-25 00:18:30.000000000 +0000
+++ ./Configure 2012-05-23 12:19:57.000000000 +0000
@@ -112,7 +112,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"
@ -9,7 +9,7 @@
paths="$paths /sbin /usr/sbin /usr/libexec"
paths="$paths /system/gnu_library/bin"
@@ -1334,7 +1334,7 @@ loclibpth="/usr/local/lib /opt/local/lib
@@ -1341,7 +1341,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
@ -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"
@@ -2380,7 +2380,7 @@ uname
@@ -2389,7 +2389,7 @@ uname
zip
"
pth=`echo $PATH | sed -e "s/$p_/ /g"`
@ -27,7 +27,7 @@
for file in $loclist; do
eval xxx=\$$file
case "$xxx" in
@@ -11202,7 +11202,7 @@ void xxx(int n, ...)
@@ -11169,7 +11169,7 @@ void xxx(int n, ...)
va_start(args, n);
exit((unsigned long)vsprintf(buf,"%s",args) > 10L);
}
@ -36,7 +36,7 @@
#else /* I_VARARGS */
@@ -11214,7 +11214,7 @@ va_dcl
@@ -11181,7 +11181,7 @@ va_dcl
va_start(args);
exit((unsigned long)vsprintf(buf,"%s",args) > 10L);
}
@ -45,7 +45,7 @@
#endif
@@ -19153,14 +19153,20 @@ int main(int argc, char *argv[])
@@ -19174,14 +19174,20 @@ int main(int argc, char *argv[])
}
EOCP
set try
@ -66,7 +66,7 @@
i_db=$undef
case " $libs " in
*"-ldb "*)
@@ -19203,7 +19209,7 @@ int main()
@@ -19224,7 +19230,7 @@ int main()
}
#endif
EOCP
@ -75,7 +75,7 @@
if $contains warning try.out >>/dev/null 2>&1 ; then
db_hashtype='int'
else
@@ -19248,7 +19254,7 @@ int main()
@@ -19269,7 +19275,7 @@ int main()
}
#endif
EOCP
@ -84,7 +84,7 @@
if $contains warning try.out >>/dev/null 2>&1 ; then
db_prefixtype='int'
else
@@ -23245,7 +23251,7 @@ passcat='$passcat'
@@ -23602,7 +23608,7 @@ passcat='$passcat'
patchlevel='$patchlevel'
path_sep='$path_sep'
perl5='$perl5'
@ -93,8 +93,8 @@
perl_patchlevel='$perl_patchlevel'
perl_static_inline='$perl_static_inline'
perladmin='$perladmin'
--- ./SuSE/SuSEconfig.perl.orig 2011-06-17 09:05:57.000000000 +0000
+++ ./SuSE/SuSEconfig.perl 2011-06-17 09:05:57.000000000 +0000
--- ./SuSE/SuSEconfig.perl.orig 2012-05-23 12:19:57.000000000 +0000
+++ ./SuSE/SuSEconfig.perl 2012-05-23 12:19:57.000000000 +0000
@@ -0,0 +1,76 @@
+#! /bin/bash
+#
@ -172,8 +172,8 @@
+#
+# end of file SuSEconfig.perl
+#
--- ./SuSE/perllocal.SuSE.orig 2011-06-17 09:05:57.000000000 +0000
+++ ./SuSE/perllocal.SuSE 2011-06-17 09:05:57.000000000 +0000
--- ./SuSE/perllocal.SuSE.orig 2012-05-23 12:19:57.000000000 +0000
+++ ./SuSE/perllocal.SuSE 2012-05-23 12:19:57.000000000 +0000
@@ -0,0 +1,84 @@
+#!/usr/bin/perl
+# 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";
+}
+
--- ./SuSE/sysconfig.suseconfig-perl.orig 2011-06-17 09:05:57.000000000 +0000
+++ ./SuSE/sysconfig.suseconfig-perl 2011-06-17 09:05:57.000000000 +0000
--- ./SuSE/sysconfig.suseconfig-perl.orig 2012-05-23 12:19:57.000000000 +0000
+++ ./SuSE/sysconfig.suseconfig-perl 2012-05-23 12:19:57.000000000 +0000
@@ -0,0 +1,8 @@
+## Path: System/SuSEconfig
+## Type: yesno
@ -270,9 +270,9 @@
+# May SuSEconfig modify your perllocal.pod? (yes/no)
+#
+CREATE_PERLLOCAL_POD="yes"
--- ./cpan/CPAN/lib/CPAN.pm.orig 2011-06-09 20:04:29.000000000 +0000
+++ ./cpan/CPAN/lib/CPAN.pm 2011-06-17 09:05:57.000000000 +0000
@@ -64,7 +64,7 @@ sub _uniq;
--- ./cpan/CPAN/lib/CPAN.pm.orig 2012-04-25 00:18:30.000000000 +0000
+++ ./cpan/CPAN/lib/CPAN.pm 2012-05-23 12:19:57.000000000 +0000
@@ -65,7 +65,7 @@ sub _uniq;
no lib ".";
@ -281,8 +281,8 @@
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/Compress-Raw-Zlib/config.in.orig 2011-06-09 20:04:29.000000000 +0000
+++ ./cpan/Compress-Raw-Zlib/config.in 2011-06-17 09:05:57.000000000 +0000
--- ./cpan/Compress-Raw-Zlib/config.in.orig 2012-03-19 20:38:24.000000000 +0000
+++ ./cpan/Compress-Raw-Zlib/config.in 2012-05-23 12:19:57.000000000 +0000
@@ -16,9 +16,9 @@
# Setting the Gzip OS Code
#
@ -296,8 +296,8 @@
OLD_ZLIB = False
GZIP_OS_CODE = AUTO_DETECT
--- ./cpan/Encode/bin/enc2xs.orig 2011-06-09 20:04:29.000000000 +0000
+++ ./cpan/Encode/bin/enc2xs 2011-06-17 09:05:57.000000000 +0000
--- ./cpan/Encode/bin/enc2xs.orig 2012-02-15 04:44:38.000000000 +0000
+++ ./cpan/Encode/bin/enc2xs 2012-05-23 12:19:57.000000000 +0000
@@ -1005,13 +1005,13 @@ sub make_configlocal_pm {
$LocalMod{$enc} ||= $mod;
}
@ -314,8 +314,8 @@
$_LocalVer = _mkversion();
$_E2X = find_e2x();
$_Inc = $INC{"Encode.pm"};
--- ./cpan/File-Temp/Temp.pm.orig 2011-04-13 11:36:34.000000000 +0000
+++ ./cpan/File-Temp/Temp.pm 2011-06-17 09:05:57.000000000 +0000
--- ./cpan/File-Temp/Temp.pm.orig 2012-02-15 04:44:40.000000000 +0000
+++ ./cpan/File-Temp/Temp.pm 2012-05-23 12:19:57.000000000 +0000
@@ -146,7 +146,7 @@ use File::Path qw/ rmtree /;
use Fcntl 1.03;
use IO::Seekable; # For SEEK_*
@ -325,9 +325,9 @@
# 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 2011-06-17 00:06:09.000000000 +0000
+++ ./cpan/Sys-Syslog/t/syslog.t 2011-06-17 09:05:57.000000000 +0000
@@ -206,6 +206,7 @@ SKIP: {
--- ./cpan/Sys-Syslog/t/syslog.t.orig 2012-04-25 00:18:32.000000000 +0000
+++ ./cpan/Sys-Syslog/t/syslog.t 2012-05-23 12:19:57.000000000 +0000
@@ -218,6 +218,7 @@ SKIP: {
}
}
else {
@ -335,8 +335,8 @@
ok( $r, "setlogsock() should return true: '$r'" );
}
--- ./cpan/libnet/Net/Config.pm.orig 2011-04-13 11:36:34.000000000 +0000
+++ ./cpan/libnet/Net/Config.pm 2011-06-17 09:05:57.000000000 +0000
--- ./cpan/libnet/Net/Config.pm.orig 2012-02-15 04:44:44.000000000 +0000
+++ ./cpan/libnet/Net/Config.pm 2012-05-23 12:19:57.000000000 +0000
@@ -37,7 +37,7 @@ eval { local $SIG{__DIE__}; require Net:
# Try to get as much configuration info as possible from InternetConfig
#
@ -346,9 +346,9 @@
{
my %nc = (
--- ./dist/ExtUtils-Install/lib/ExtUtils/Packlist.pm.orig 2011-04-13 11:36:34.000000000 +0000
+++ ./dist/ExtUtils-Install/lib/ExtUtils/Packlist.pm 2011-06-17 09:05:57.000000000 +0000
@@ -206,8 +206,11 @@ foreach my $key (sort(keys(%{$self->{dat
--- ./dist/ExtUtils-Install/lib/ExtUtils/Packlist.pm.orig 2012-04-25 00:18:32.000000000 +0000
+++ ./dist/ExtUtils-Install/lib/ExtUtils/Packlist.pm 2012-05-23 12:19:57.000000000 +0000
@@ -207,8 +207,11 @@ foreach my $key (sort(keys(%{$self->{dat
{
if (! -e $key)
{
@ -362,8 +362,8 @@
}
}
return(@missing);
--- ./ext/DynaLoader/hints/linux.pl.orig 2011-04-13 11:36:34.000000000 +0000
+++ ./ext/DynaLoader/hints/linux.pl 2011-06-17 09:05:57.000000000 +0000
--- ./ext/DynaLoader/hints/linux.pl.orig 2012-02-15 04:44:47.000000000 +0000
+++ ./ext/DynaLoader/hints/linux.pl 2012-05-23 12:19:57.000000000 +0000
@@ -2,4 +2,7 @@
# Some Linux releases like to hide their <nlist.h>
$self->{CCFLAGS} = $Config{ccflags} . ' -I/usr/include/libelf'
@ -372,8 +372,8 @@
+# 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/ODBM_File/Makefile.PL.orig 2011-04-13 11:36:34.000000000 +0000
+++ ./ext/ODBM_File/Makefile.PL 2011-06-17 09:05:57.000000000 +0000
--- ./ext/ODBM_File/Makefile.PL.orig 2012-02-15 04:44:47.000000000 +0000
+++ ./ext/ODBM_File/Makefile.PL 2012-05-23 12:19:57.000000000 +0000
@@ -1,7 +1,7 @@
use ExtUtils::MakeMaker;
WriteMakefile(
@ -383,8 +383,8 @@
XSPROTOARG => '-noprototypes', # XXX remove later?
VERSION_FROM => 'ODBM_File.pm',
);
--- ./ext/ODBM_File/hints/linux.pl.orig 2011-06-09 20:04:29.000000000 +0000
+++ ./ext/ODBM_File/hints/linux.pl 2011-06-17 09:05:57.000000000 +0000
--- ./ext/ODBM_File/hints/linux.pl.orig 2012-02-15 04:44:47.000000000 +0000
+++ ./ext/ODBM_File/hints/linux.pl 2012-05-23 12:19:57.000000000 +0000
@@ -1,5 +1,5 @@
# uses GDBM dbm compatibility feature - at least on SuSE 8.0
-$self->{LIBS} = ['-lgdbm'];
@ -392,9 +392,9 @@
# Debian/Ubuntu have libgdbm_compat.so but not this file,
# so linking may fail
--- ./hints/linux.sh.orig 2011-06-09 20:04:29.000000000 +0000
+++ ./hints/linux.sh 2011-06-17 09:05:57.000000000 +0000
@@ -50,12 +50,14 @@ ignore_versioned_solibs='y'
--- ./hints/linux.sh.orig 2012-05-14 19:49:22.000000000 +0000
+++ ./hints/linux.sh 2012-05-23 12:21:21.000000000 +0000
@@ -53,12 +53,14 @@ 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
@ -411,7 +411,7 @@
# If you have glibc, then report the version for ./myconfig bug reporting.
# (Configure doesn't need to know the specific version since it just uses
@@ -63,7 +65,18 @@ libswanted="$libswanted gdbm_compat"
@@ -66,7 +68,18 @@ libswanted="$libswanted gdbm_compat"
# 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.
@ -431,7 +431,7 @@
libc=`ls -l /lib/libc.so.6 | awk '{print $NF}'`
libc=/lib/$libc
fi
@@ -148,6 +161,7 @@ case "$optimize" in
@@ -151,6 +164,7 @@ case "$optimize" in
esac
;;
esac
@ -439,16 +439,16 @@
;;
esac
@@ -163,7 +177,7 @@ esac
# Still, as an escape hatch, allow Configure command line overrides to
# plibpth to bypass this check.
@@ -174,7 +188,7 @@ else
fi
case "$plibpth" in
-'') plibpth=`gcc -print-search-dirs | grep libraries |
+'UBUNTU') plibpth=`gcc -print-search-dirs | grep libraries |
-'') plibpth=`LANG=C LC_ALL=C $gcc -print-search-dirs | grep libraries |
+'UBUNTU') plibpth=`LANG=C LC_ALL=C $gcc -print-search-dirs | grep libraries |
cut -f2- -d= | tr ':' $trnl | grep -v 'gcc' | sed -e 's:/$::'`
set X $plibpth # Collapse all entries on one line
shift
@@ -171,6 +185,10 @@ case "$plibpth" in
@@ -182,6 +196,10 @@ case "$plibpth" in
;;
esac
@ -459,7 +459,7 @@
# Are we using ELF? Thanks to Kenneth Albanowski <kjahds@kjahds.com>
# for this test.
cat >try.c <<'EOM'
@@ -255,6 +273,29 @@ EOM
@@ -266,6 +284,29 @@ EOM
esac
fi
@ -489,7 +489,7 @@
rm -f try.c a.out
if /bin/sh -c exit; then
@@ -304,6 +345,9 @@ else
@@ -315,6 +356,9 @@ else
echo "Couldn't find tcsh. Csh-based globbing might be broken."
fi
fi
@ -499,7 +499,7 @@
# Shimpei Yamashita <shimpei@socrates.patnet.caltech.edu>
# Message-Id: <33EF1634.B36B6500@pobox.com>
@@ -382,6 +426,8 @@ $define|true|[yY]*)
@@ -387,6 +431,8 @@ $define|true|[yY]*)
d_localtime_r_proto="$define"
d_random_r_proto="$define"
@ -508,9 +508,9 @@
;;
esac
EOCBU
--- ./installperl.orig 2011-06-09 20:04:29.000000000 +0000
+++ ./installperl 2011-06-17 09:05:57.000000000 +0000
@@ -753,7 +753,7 @@ sub installlib {
--- ./installperl.orig 2012-04-25 00:18:34.000000000 +0000
+++ ./installperl 2012-05-23 12:19:57.000000000 +0000
@@ -762,7 +762,7 @@ sub installlib {
return if $name eq 'ExtUtils/XSSymSet.pm' and !$Is_VMS;
my $installlib = $installprivlib;
@ -519,9 +519,9 @@
($name =~ /^(.*)\.(?:pm|pod)$/ && $archpms{$1}) ||
($name =~ /^(.*)\.(?:h|lib)$/i && ($Is_W32 || $Is_NetWare)) ||
$name=~/^Config_(heavy|git)\.pl\z/
--- ./lib/perl5db.pl.orig 2011-06-17 00:06:09.000000000 +0000
+++ ./lib/perl5db.pl 2011-06-17 09:05:57.000000000 +0000
@@ -3388,6 +3388,8 @@ reading another.
--- ./lib/perl5db.pl.orig 2012-05-10 18:38:09.000000000 +0000
+++ ./lib/perl5db.pl 2012-05-23 12:19:57.000000000 +0000
@@ -3194,6 +3194,8 @@ reading another.
open( OUT, ">&STDOUT" ) # XXX: lost message
|| &warn("Can't restore DB::OUT");
}
@ -530,7 +530,7 @@
next CMD;
} ## end unless ($piped = open(OUT,...
@@ -3512,6 +3514,8 @@ our standard filehandles for input and o
@@ -3320,6 +3322,8 @@ our standard filehandles for input and o
# if necessary,
close(SAVEOUT);
select($selected), $selected = "" unless $selected eq "";
@ -539,9 +539,9 @@
# No pipes now.
$piped = "";
--- ./locale.c.orig 2011-06-09 20:04:29.000000000 +0000
+++ ./locale.c 2011-06-17 09:05:57.000000000 +0000
@@ -357,9 +357,15 @@ Perl_init_i18nl10n(pTHX_ int printwarn)
--- ./locale.c.orig 2012-04-25 00:18:34.000000000 +0000
+++ ./locale.c 2012-05-23 12:19:57.000000000 +0000
@@ -354,9 +354,15 @@ Perl_init_i18nl10n(pTHX_ int printwarn)
if (setlocale_failure) {
char *p;
@ -557,8 +557,8 @@
if (locwarn) {
#ifdef LC_ALL
--- ./t/op/numconvert.t.orig 2011-06-09 20:04:29.000000000 +0000
+++ ./t/op/numconvert.t 2011-06-17 09:05:57.000000000 +0000
--- ./t/op/numconvert.t.orig 2012-02-15 04:44:52.000000000 +0000
+++ ./t/op/numconvert.t 2012-05-23 12:19:57.000000000 +0000
@@ -47,7 +47,7 @@ my $max_chain = $ENV{PERL_TEST_NUMCONVER
# Bulk out if unsigned type is hopelessly wrong:
@ -568,9 +568,17 @@
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 2011-06-17 00:06:09.000000000 +0000
+++ ./utils/perlbug.PL 2011-06-17 09:05:57.000000000 +0000
@@ -1070,6 +1070,7 @@ sub _message_headers {
--- ./t/porting/customized.dat.orig 2012-05-23 12:59:38.000000000 +0000
+++ ./t/porting/customized.dat 2012-05-23 12:59:49.000000000 +0000
@@ -10,4 +10,4 @@ podlators pod/perlpodstyle.pod 4f1ba65ed
CPANPLUS cpan/CPANPLUS/Makefile.PL 5d533f6722af6aae73204755beb8d6c008fc0d4a
Text-Tabs+Wrap cpan/Text-Tabs/t/fill.t a960d2c4f66b7e30557b5479e0da2da1bf7a7f45
Text-Tabs+Wrap cpan/Text-Tabs/t/tabs.t 63a67b3a319c858d7e66306b8a653de1951153dc
-Sys::Syslog cpan/Sys-Syslog/t/syslog.t 647571fc90918883b871ff7e005ed7ab8a223784
+Sys::Syslog cpan/Sys-Syslog/t/syslog.t e40234f4b9f521a16b4dcbf2981539281fdb3228
--- ./utils/perlbug.PL.orig 2012-05-10 18:38:09.000000000 +0000
+++ ./utils/perlbug.PL 2012-05-23 12:19:57.000000000 +0000
@@ -1017,6 +1017,7 @@ sub _message_headers {
$headers{'Cc'} = $cc if ($cc);
$headers{'Message-Id'} = $messageid if ($messageid);
$headers{'Reply-To'} = $from if ($from);

3
perl-5.16.0.tar.bz2 Normal file
View File

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

54
perl-HiRes.t-timeout.diff
View File

@ -1,11 +1,55 @@
--- cpan/Time-HiRes/t/HiRes.t.orig
+++ cpan/Time-HiRes/t/HiRes.t
@@ -116,7 +116,7 @@ if (open(XDEFINE, "xdefine")) {
--- cpan/Time-HiRes/t/alarm.t.orig 2012-05-23 12:33:36.000000000 +0000
+++ cpan/Time-HiRes/t/alarm.t 2012-05-23 12:34:12.000000000 +0000
@@ -7,7 +7,7 @@ BEGIN { require_ok "Time::HiRes"; }
use Config;
-my $limit = 0.25; # 25% is acceptable slosh for testing timers
+my $limit = 0.60; # 25% is acceptable slosh for testing timers
my $xdefine = '';
if (open(XDEFINE, "xdefine")) {
--- cpan/Time-HiRes/t/clock.t.orig 2012-05-23 12:33:41.000000000 +0000
+++ cpan/Time-HiRes/t/clock.t 2012-05-23 12:34:27.000000000 +0000
@@ -28,7 +28,7 @@ note sprintf "have_clock = %d"
# completes fine with (say) 30% slosh, and fail otherwise. If you do that,
# consider changing over to test.pl at the same time.
# --A.D., Nov 27, 2001
-my $limit = 0.25; # 25% is acceptable slosh for testing timers
+my $limit = 0.60; # 25% is acceptable slosh for testing timers
sub skip {
map { print "ok $_ # skipped\n" } @_;
SKIP: {
skip "no clock_gettime", 1
--- cpan/Time-HiRes/t/itimer.t.orig 2012-05-23 12:33:46.000000000 +0000
+++ cpan/Time-HiRes/t/itimer.t 2012-05-23 12:34:31.000000000 +0000
@@ -28,7 +28,7 @@ BEGIN {
use Test::More 0.82 tests => 2;
use t::Watchdog;
-my $limit = 0.25; # 25% is acceptable slosh for testing timers
+my $limit = 0.60; # 25% is acceptable slosh for testing timers
my $i = 3;
my $r = [Time::HiRes::gettimeofday()];
--- cpan/Time-HiRes/t/stat.t.orig 2012-05-23 12:33:51.000000000 +0000
+++ cpan/Time-HiRes/t/stat.t 2012-05-23 12:34:36.000000000 +0000
@@ -16,7 +16,7 @@ BEGIN {
use Test::More 0.82 tests => 16;
use t::Watchdog;
-my $limit = 0.25; # 25% is acceptable slosh for testing timers
+my $limit = 0.60; # 25% is acceptable slosh for testing timers
my @atime;
my @mtime;
--- cpan/Time-HiRes/t/usleep.t.orig 2012-05-23 12:33:56.000000000 +0000
+++ cpan/Time-HiRes/t/usleep.t 2012-05-23 12:34:40.000000000 +0000
@@ -15,7 +15,7 @@ eval { Time::HiRes::usleep(-2) };
like $@, qr/::usleep\(-2\): negative time not invented yet/,
"negative time error";
-my $limit = 0.25; # 25% is acceptable slosh for testing timers
+my $limit = 0.60; # 25% is acceptable slosh for testing timers
my $one = CORE::time;
Time::HiRes::usleep(10_000);

24
perl-nroff.diff
View File

@ -1,11 +1,19 @@
--- dist/Pod-Perldoc/lib/Pod/Perldoc.pm.orig 2010-02-17 14:35:24.000000000 +0000
+++ dist/Pod-Perldoc/lib/Pod/Perldoc.pm 2010-03-23 15:40:17.000000000 +0000
@@ -655,7 +655,7 @@ sub options_processing {
--- cpan/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm.orig 2012-05-23 15:16:34.000000000 +0000
+++ cpan/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm 2012-05-23 15:18:00.000000000 +0000
@@ -64,7 +64,7 @@ sub _roffer_candidates {
my( $self ) = @_;
$self->options_sanity;
if( $self->is_openbsd ) { qw( mandoc groff nroff ) }
- else { qw( groff nroff mandoc ) }
+ else { qw( nroff groff mandoc ) }
}
- $self->opt_n("nroff") unless $self->opt_n;
+ $self->opt_n("nroff -c") unless $self->opt_n;
$self->add_formatter_option( '__nroffer' => $self->opt_n );
sub _find_roffer {
@@ -246,6 +246,7 @@ sub _collect_nroff_switches {
# don't have a -c switch, so that unconditionally adding it here
# would presumably be a Bad Thing -- sburke@cpan.org
push @render_switches, '-c' if( $self->_is_roff and $self->is_cygwin );
+ push @render_switches, '-c' if( $self->_is_nroff );
# Get language from PERLDOC_POD2 environment variable
return @render_switches;
}

14
perl.changes
View File

@ -1,3 +1,17 @@
-------------------------------------------------------------------
Wed May 23 15:09:25 CEST 2012 - mls@suse.de
- update to 5.16.0
* new __SUB__ token to reference current sub
* more consistent eval
* ties can now be weakended
* supports (almost) unicode 6.1
* proper supports for unicode in symbol names
* new foldcase function fc()
* continue no longer requires the switch feature
* removed LinuxThreads hack for $$ and getppid
* performance optimizations
-------------------------------------------------------------------
Mon Apr 2 11:08:47 UTC 2012 - coolo@suse.com

14
perl.spec
View File

@ -21,11 +21,11 @@ Name: perl
Summary: The Perl interpreter
License: Artistic-1.0 or GPL-2.0+
Group: Development/Languages/Perl
Version: 5.14.2
Version: 5.16.0
Release: 0
%define pversion 5.14.2
%define pversion 5.16.0
Url: http://www.perl.org/
Source: perl-5.14.2.tar.bz2
Source: perl-5.16.0.tar.bz2
Source1: %name-rpmlintrc
Source2: macros.perl
Source3: README.macros
@ -37,7 +37,6 @@ Patch3: perl-nroff.diff
Patch4: perl-netcmdutf8.diff
Patch5: perl-HiRes.t-timeout.diff
Patch6: perl-saverecontext.diff
Patch7: perl-cbuilder-ccflags.diff
BuildRoot: %{_tmppath}/%{name}-%{version}-build
PreReq: perl-base = %version
#PreReq: %fillup_prereq
@ -113,7 +112,6 @@ series.
%package base
Summary: The Perl interpreter
Group: Development/Languages/Perl
Provides: perl-Digest
Provides: perl-Digest-MD5
%if "%version" != "%pversion"
@ -140,7 +138,6 @@ itself.
%package doc
Summary: Perl Documentation
Group: Development/Languages/Perl
Requires: perl = %{version}
Provides: perl:/usr/share/man/man3/CORE.3pm.gz
%if 0%{?suse_version} >= 1120
@ -151,7 +148,7 @@ BuildArch: noarch
Perl man pages and pod files.
%prep
%setup -q -n perl-5.14.2
%setup -q -n perl-5.16.0
cp -p %{S:3} .
%patch0
%patch1
@ -160,7 +157,6 @@ cp -p %{S:3} .
%patch4
%patch5
%patch6
%patch7
%build
cp -a lib savelib
@ -344,8 +340,6 @@ cat << EOF > perl-base-filelist
/usr/lib/perl5/%pversion/*-linux-thread-multi*/auto/Socket/
/usr/lib/perl5/%pversion/*-linux-thread-multi*/auto/POSIX/POSIX.bs
/usr/lib/perl5/%pversion/*-linux-thread-multi*/auto/POSIX/POSIX.so
/usr/lib/perl5/%pversion/*-linux-thread-multi*/auto/POSIX/autosplit.ix
/usr/lib/perl5/%pversion/*-linux-thread-multi*/auto/POSIX/load_imports.al
/usr/lib/perl5/%pversion/*-linux-thread-multi*/lib.pm
/usr/lib/perl5/%pversion/*-linux-thread-multi*/re.pm
EOF