[opensuse-ja] Fwd: commit perl for openSUSE:Factory
openSUSE FactoryのPerlが5.16.2から5.18.0に上がるみたいですね。 openSUSE 13.1 Milestone 2のPerlも5.16.2なので5.18.0を自分でbuildしたんですけど http://d.hatena.ne.jp/Itisango/20130625/1372165182 openSUSE 13.1の方も早くPerl 5.18.0が入ってきてほしいですね。 ---------- Forwarded message ---------- From: h_root <root@hilbert.suse.de> Date: 2013/6/26 Subject: commit perl for openSUSE:Factory To: opensuse-commit@opensuse.org Hello community, here is the log from the commit of package perl for openSUSE:Factory checked in at 2013-06-25 17:17:49 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl (Old) and /work/SRC/openSUSE:Factory/.perl.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "perl" Changes: -------- --- /work/SRC/openSUSE:Factory/perl/perl.changes 2013-06-17 10:57:55.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl.new/perl.changes 2013-06-25 17:22:49.000000000 +0200 @@ -1,0 +2,6 @@ +Fri Jun 14 22:51:27 UTC 2013 - jengelh@inai.de + +- Add perl-db6.diff to bring the DB_File module up to version 1.828 + where it supports building with libdb-6.0. + +------------------------------------------------------------------- @@ -12,0 +19,19 @@ +Thu Jun 6 15:21:34 CEST 2013 - mls@suse.de + +- update to 5.18.0 + * new handling of experimental features + * new hash functions to improve security + * better hash randomization + * upgrade to Unicode 6.2 + * support for computed labels + * vertical tabs are now whitespace + * smartmatch is experimental again + * lots of bug fixes +- change perl_requires macro to use MODULE_COMPAT form + +------------------------------------------------------------------- +Mon May 20 19:02:09 UTC 2013 - schwab@suse.de + +- Disable testsuite only on qemu user space build + +------------------------------------------------------------------- @@ -181 +206 @@ ------------------------------------------------------------------- +------------------------------------------------------------------- @@ -1059 +1084 @@ ----------------------------------------------------------------------------- +------------------------------------------------------------------- @@ -1064 +1089 @@ ----------------------------------------------------------------------------- +------------------------------------------------------------------- @@ -1073 +1098 @@ ----------------------------------------------------------------------- +------------------------------------------------------------------- @@ -1079 +1104 @@ ----------------------------------------------------------------------- +------------------------------------------------------------------- Old: ---- perl-5.16.0.dif perl-5.16.2.tar.gz perl-clone_oldcop.diff New: ---- perl-5.18.0.dif perl-5.18.0.tar.gz perl-db6.diff ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl.spec ++++++ --- /var/tmp/diff_new_pack.da7PqI/_old 2013-06-25 17:22:50.000000000 +0200 +++ /var/tmp/diff_new_pack.da7PqI/_new 2013-06-25 17:22:50.000000000 +0200 @@ -21,23 +21,23 @@ Summary: The Perl interpreter License: Artistic-1.0 or GPL-2.0+ Group: Development/Languages/Perl -Version: 5.16.2 +Version: 5.18.0 Release: 0 -%define pversion 5.16.2 +%define pversion 5.18.0 Url: http://www.perl.org/ Source: http://www.cpan.org/src/5.0/perl-%{version}.tar.gz Source1: %name-rpmlintrc Source2: macros.perl Source3: README.macros Source4: baselibs.conf -Patch0: perl-5.16.0.dif +Patch0: perl-5.18.0.dif Patch1: perl-gracefull-net-ftp.diff Patch2: perl-regexp-refoverflow.diff Patch3: perl-nroff.diff Patch4: perl-netcmdutf8.diff Patch5: perl-HiRes.t-timeout.diff Patch6: perl-saverecontext.diff -Patch7: perl-clone_oldcop.diff +Patch7: perl-db6.diff BuildRoot: %{_tmppath}/%{name}-%{version}-build PreReq: perl-base = %version #PreReq: %fillup_prereq @@ -94,8 +94,8 @@ Provides: perl-ExtUtils-ParseXS Obsoletes: perl-ExtUtils-ParseXS Provides: perl-version -Obsoletes: perl-CPAN-Meta <= 2.120630 -Obsoletes: perl-CPAN-Meta-YAML <= 0.007 +Obsoletes: perl-CPAN-Meta <= 2.120921 +Obsoletes: perl-CPAN-Meta-YAML <= 0.008 Obsoletes: perl-ExtUtils-CBuilder <= 0.280205 Obsoletes: perl-Parse-CPAN-Meta <= 1.4402 Obsoletes: perl-PathTools <= 3.40 @@ -164,7 +164,7 @@ %patch4 %patch5 %patch6 -%patch7 +%patch -P 7 -p1 %build cp -a lib savelib @@ -182,7 +182,7 @@ %endif # always use glibc's setenv options="$options -Accflags='-DPERL_USE_SAFE_PUTENV'" -options="$options -Dotherlibdirs=/usr/lib/perl5/site_perl" +options="$options -Dotherlibdirs=/usr/lib/perl5/site_perl -Dinc_version_list=none" chmod 755 ./configure.gnu ./configure.gnu --prefix=/usr -Dvendorprefix=/usr -Dinstallusrbinperl -Dusethreads -Di_db -Di_dbm -Di_ndbm -Di_gdbm -Dd_dbm_open -Duseshrplib=\'true\' $options make %{?_smp_mflags} @@ -197,7 +197,7 @@ make %{?_smp_mflags} %check -%ifnarch %arm +%if !0%{?qemu_user_space_build} export SUSE_ASNEEDED=0 make test %endif ++++++ macros.perl ++++++ --- /var/tmp/diff_new_pack.da7PqI/_old 2013-06-25 17:22:50.000000000 +0200 +++ /var/tmp/diff_new_pack.da7PqI/_new 2013-06-25 17:22:50.000000000 +0200 @@ -22,13 +22,13 @@ %perl_installarchlib %(perl -V:installarchlib | sed "s!.*='!!;s!'.*!!") %perl_prefix %{buildroot} -# Macro to encapsulate perl requires (empty for fedora and suse > 11.3) +# Macro to encapsulate perl requires (empty for fedora) # we keep the complicated form even here to easy sync the other macros with # perl-macros package # %perl_requires() \ -%if 0%{?suse_version} > 0 && 0%{?suse_version} < 1700 \ -Requires: perl = %{perl_version} \ +%if 0%{?suse_version} > 0 \ +Requires: perl(:MODULE_COMPAT_%{perl_version}) \ %endif # suse specific macros ++++++ perl-5.16.0.dif -> perl-5.18.0.dif ++++++ --- /work/SRC/openSUSE:Factory/perl/perl-5.16.0.dif 2012-06-01 07:22:31.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl.new/perl-5.18.0.dif 2013-06-25 17:22:49.000000000 +0200 @@ -1,5 +1,5 @@ ---- ./Configure.orig 2012-04-25 00:18:30.000000000 +0000 -+++ ./Configure 2012-05-23 12:19:57.000000000 +0000 +--- ./Configure.orig 2013-05-10 14:13:56.000000000 +0000 ++++ ./Configure 2013-06-06 12:51:27.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" -@@ -1341,7 +1341,7 @@ loclibpth="/usr/local/lib /opt/local/lib +@@ -1346,7 +1346,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" -@@ -2389,7 +2389,7 @@ uname +@@ -2394,7 +2394,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 -@@ -11169,7 +11169,7 @@ void xxx(int n, ...) +@@ -11233,7 +11233,7 @@ void xxx(int n, ...) va_start(args, n); exit((unsigned long)vsprintf(buf,"%s",args) > 10L); } @@ -36,7 +36,7 @@ #else /* I_VARARGS */ -@@ -11181,7 +11181,7 @@ va_dcl +@@ -11245,7 +11245,7 @@ va_dcl va_start(args); exit((unsigned long)vsprintf(buf,"%s",args) > 10L); } @@ -45,7 +45,7 @@ #endif -@@ -19174,14 +19174,20 @@ int main(int argc, char *argv[]) +@@ -19335,14 +19335,20 @@ int main(int argc, char *argv[]) } EOCP set try @@ -66,7 +66,7 @@ i_db=$undef case " $libs " in *"-ldb "*) -@@ -19224,7 +19230,7 @@ int main() +@@ -19385,7 +19391,7 @@ int main() } #endif EOCP @@ -75,7 +75,7 @@ if $contains warning try.out >>/dev/null 2>&1 ; then db_hashtype='int' else -@@ -19269,7 +19275,7 @@ int main() +@@ -19430,7 +19436,7 @@ int main() } #endif EOCP @@ -84,7 +84,7 @@ if $contains warning try.out >>/dev/null 2>&1 ; then db_prefixtype='int' else -@@ -23602,7 +23608,7 @@ passcat='$passcat' +@@ -23736,7 +23742,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 2012-05-23 12:19:57.000000000 +0000 -+++ ./SuSE/SuSEconfig.perl 2012-05-23 12:19:57.000000000 +0000 +--- ./SuSE/SuSEconfig.perl.orig 2013-06-06 12:51:27.000000000 +0000 ++++ ./SuSE/SuSEconfig.perl 2013-06-06 12:51:27.000000000 +0000 @@ -0,0 +1,76 @@ +#! /bin/bash +# @@ -172,8 +172,8 @@ +# +# end of file SuSEconfig.perl +# ---- ./SuSE/perllocal.SuSE.orig 2012-05-23 12:19:57.000000000 +0000 -+++ ./SuSE/perllocal.SuSE 2012-05-23 12:19:57.000000000 +0000 +--- ./SuSE/perllocal.SuSE.orig 2013-06-06 12:51:27.000000000 +0000 ++++ ./SuSE/perllocal.SuSE 2013-06-06 12:51:27.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 2012-05-23 12:19:57.000000000 +0000 -+++ ./SuSE/sysconfig.suseconfig-perl 2012-05-23 12:19:57.000000000 +0000 +--- ./SuSE/sysconfig.suseconfig-perl.orig 2013-06-06 12:51:27.000000000 +0000 ++++ ./SuSE/sysconfig.suseconfig-perl 2013-06-06 12:51:27.000000000 +0000 @@ -0,0 +1,8 @@ +## Path: System/SuSEconfig +## Type: yesno @@ -270,8 +270,8 @@ +# May SuSEconfig modify your perllocal.pod? (yes/no) +# +CREATE_PERLLOCAL_POD="yes" ---- ./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 +--- ./cpan/CPAN/lib/CPAN.pm.orig 2013-05-01 02:52:54.000000000 +0000 ++++ ./cpan/CPAN/lib/CPAN.pm 2013-06-06 12:51:27.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 2012-03-19 20:38:24.000000000 +0000 -+++ ./cpan/Compress-Raw-Zlib/config.in 2012-05-23 12:19:57.000000000 +0000 +--- ./cpan/Compress-Raw-Zlib/config.in.orig 2013-05-01 02:52:54.000000000 +0000 ++++ ./cpan/Compress-Raw-Zlib/config.in 2013-06-06 12:51:27.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 2012-02-15 04:44:38.000000000 +0000 -+++ ./cpan/Encode/bin/enc2xs 2012-05-23 12:19:57.000000000 +0000 +--- ./cpan/Encode/bin/enc2xs.orig 2013-05-01 02:52:54.000000000 +0000 ++++ ./cpan/Encode/bin/enc2xs 2013-06-06 12:51:27.000000000 +0000 @@ -1005,13 +1005,13 @@ sub make_configlocal_pm { $LocalMod{$enc} ||= $mod; } @@ -314,20 +314,20 @@ $_LocalVer = _mkversion(); $_E2X = find_e2x(); $_Inc = $INC{"Encode.pm"}; ---- ./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; +--- ./cpan/File-Temp/lib/File/Temp.pm.orig 2013-05-01 02:52:55.000000000 +0000 ++++ ./cpan/File-Temp/lib/File/Temp.pm 2013-06-06 12:58:21.000000000 +0000 +@@ -149,7 +149,7 @@ use Fcntl 1.03; use IO::Seekable; # For SEEK_* use Errno; + use Scalar::Util 'refaddr'; -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 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: { +--- ./cpan/Sys-Syslog/t/syslog.t.orig 2013-05-01 02:52:55.000000000 +0000 ++++ ./cpan/Sys-Syslog/t/syslog.t 2013-06-06 12:51:27.000000000 +0000 +@@ -220,6 +220,7 @@ SKIP: { } } else { @@ -335,8 +335,8 @@ ok( $r, "setlogsock() should return true: '$r'" ); } ---- ./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 +--- ./cpan/libnet/Net/Config.pm.orig 2013-05-01 02:52:55.000000000 +0000 ++++ ./cpan/libnet/Net/Config.pm 2013-06-06 12:51:27.000000000 +0000 @@ -37,7 +37,7 @@ eval { local $SIG{__DIE__}; require Net: # Try to get as much configuration info as possible from InternetConfig # @@ -346,8 +346,8 @@ { my %nc = ( ---- ./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 +--- ./dist/ExtUtils-Install/lib/ExtUtils/Packlist.pm.orig 2013-05-01 02:52:55.000000000 +0000 ++++ ./dist/ExtUtils-Install/lib/ExtUtils/Packlist.pm 2013-06-06 12:51:27.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 2012-02-15 04:44:47.000000000 +0000 -+++ ./ext/DynaLoader/hints/linux.pl 2012-05-23 12:19:57.000000000 +0000 +--- ./ext/DynaLoader/hints/linux.pl.orig 2013-02-26 21:28:27.000000000 +0000 ++++ ./ext/DynaLoader/hints/linux.pl 2013-06-06 12:51:27.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 2012-02-15 04:44:47.000000000 +0000 -+++ ./ext/ODBM_File/Makefile.PL 2012-05-23 12:19:57.000000000 +0000 +--- ./ext/ODBM_File/Makefile.PL.orig 2013-02-26 21:28:27.000000000 +0000 ++++ ./ext/ODBM_File/Makefile.PL 2013-06-06 12:51:27.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 2012-02-15 04:44:47.000000000 +0000 -+++ ./ext/ODBM_File/hints/linux.pl 2012-05-23 12:19:57.000000000 +0000 +--- ./ext/ODBM_File/hints/linux.pl.orig 2013-05-01 02:52:55.000000000 +0000 ++++ ./ext/ODBM_File/hints/linux.pl 2013-06-06 12:51:27.000000000 +0000 @@ -1,5 +1,5 @@ # uses GDBM dbm compatibility feature - at least on SuSE 8.0 -$self->{LIBS} = ['-lgdbm']; @@ -392,8 +392,8 @@ # Debian/Ubuntu have libgdbm_compat.so but not this file, # so linking may fail ---- ./hints/linux.sh.orig 2012-05-14 19:49:22.000000000 +0000 -+++ ./hints/linux.sh 2012-05-23 12:21:21.000000000 +0000 +--- ./hints/linux.sh.orig 2013-05-01 02:52:55.000000000 +0000 ++++ ./hints/linux.sh 2013-06-06 12:51:27.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. @@ -508,9 +508,9 @@ ;; esac EOCBU ---- ./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 { +--- ./installperl.orig 2013-05-01 02:52:55.000000000 +0000 ++++ ./installperl 2013-06-06 12:51:27.000000000 +0000 +@@ -739,7 +739,7 @@ sub installlib { return if $name eq 'ExtUtils/XSSymSet.pm' and !$Is_VMS; my $installlib = $installprivlib; @@ -519,28 +519,29 @@ ($name =~ /^(.*)\.(?:pm|pod)$/ && $archpms{$1}) || ($name =~ /^(.*)\.(?:h|lib)$/i && ($Is_W32 || $Is_NetWare)) || $name=~/^Config_(heavy|git)\.pl\z/ ---- ./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"); - } -+ # tell readline the new OUT handle -+ $term->Attribs()->{outstream} = *OUT if defined &Term::ReadLine::Gnu::readline; - next CMD; - } ## end unless ($piped = open(OUT,... - -@@ -3320,6 +3322,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 = ""; ---- ./locale.c.orig 2012-04-25 00:18:34.000000000 +0000 -+++ ./locale.c 2012-05-23 12:19:57.000000000 +0000 +--- ./lib/perl5db.pl.orig 2013-05-01 02:52:55.000000000 +0000 ++++ ./lib/perl5db.pl 2013-06-06 12:57:15.000000000 +0000 +@@ -2325,6 +2325,8 @@ sub _DB__handle_run_command_in_pager_com + open( OUT, ">&STDOUT" ) # XXX: lost message + || _db_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,... + +@@ -2426,6 +2428,9 @@ sub _DB__at_end_of_every_command { + $obj->selected(""); + } + ++ # tell readline the new OUT handle ++ $term->Attribs()->{outstream} = *OUT if defined &Term::ReadLine::Gnu::readline; ++ + # No pipes now. + $obj->piped(""); + } ## end if ($piped) +--- ./locale.c.orig 2013-05-01 02:52:55.000000000 +0000 ++++ ./locale.c 2013-06-06 12:51:27.000000000 +0000 @@ -354,9 +354,15 @@ Perl_init_i18nl10n(pTHX_ int printwarn) if (setlocale_failure) { @@ -557,8 +558,8 @@ if (locwarn) { #ifdef LC_ALL ---- ./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 +--- ./t/op/numconvert.t.orig 2013-05-01 02:52:56.000000000 +0000 ++++ ./t/op/numconvert.t 2013-06-06 12:51:27.000000000 +0000 @@ -47,7 +47,7 @@ my $max_chain = $ENV{PERL_TEST_NUMCONVER # Bulk out if unsigned type is hopelessly wrong: @@ -568,16 +569,8 @@ my $big_iv = do {use integer; $max_uv1 * 16}; # 16 is an arbitrary number here my $max_uv_less3 = $max_uv1 - 3; ---- ./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 +--- ./utils/perlbug.PL.orig 2013-05-01 02:52:56.000000000 +0000 ++++ ./utils/perlbug.PL 2013-06-06 12:51:27.000000000 +0000 @@ -1017,6 +1017,7 @@ sub _message_headers { $headers{'Cc'} = $cc if ($cc); $headers{'Message-Id'} = $messageid if ($messageid); ++++++ perl-5.16.2.tar.gz -> perl-5.18.0.tar.gz ++++++ /work/SRC/openSUSE:Factory/perl/perl-5.16.2.tar.gz /work/SRC/openSUSE:Factory/.perl.new/perl-5.18.0.tar.gz differ: char 5, line 1 ++++++ perl-db6.diff ++++++ From: Jan Engelhardt <jengelh@inai.de> Date: 2013-06-15 00:47:07.629124845 +0200 perl: support building with libdb-6.0. This patch data was generated from the Perl5 git tree using git diff --stat -p v5.18.0..blead cpan/DB_File/ to resolve DB_File.xs: In function 'ParseOpenInfo': DB_File.xs:1316:17: warning: passing argument 2 of 'dbp->set_bt_compare' from incompatible pointer type [enabled by default] DB_File.xs:1316:17: note: expected 'int (*)(struct DB *, const struct DBT *, const struct DBT *, size_t *)' but argument is of type 'int (*)(struct DB *, const struct DBT *, const struct DBT *)' cpan/DB_File/Changes | 4 ++++ cpan/DB_File/DB_File.pm | 8 +++----- cpan/DB_File/DB_File.xs | 24 ++++++++++++++++++++---- 3 files changed, 27 insertions(+), 9 deletions(-) diff --git a/cpan/DB_File/Changes b/cpan/DB_File/Changes index a650c75..c76b08e 100644 --- a/cpan/DB_File/Changes +++ b/cpan/DB_File/Changes @@ -1,3 +1,7 @@ +1.828 7 May 2013 + + * Minor change to build with Berkeley DB 6.x + 1.827 25 Jan 2012 * DB_File.pm - Don't use "@_" construct diff --git a/cpan/DB_File/DB_File.pm b/cpan/DB_File/DB_File.pm index 58cbebe..2828770 100644 --- a/cpan/DB_File/DB_File.pm +++ b/cpan/DB_File/DB_File.pm @@ -1,10 +1,8 @@ # DB_File.pm -- Perl 5 interface to Berkeley DB # -# written by Paul Marquess (pmqs@cpan.org) -# last modified 28th October 2007 -# version 1.818 +# Written by Paul Marquess (pmqs@cpan.org) # -# Copyright (c) 1995-2009 Paul Marquess. All rights reserved. +# Copyright (c) 1995-2013 Paul Marquess. All rights reserved. # This program is free software; you can redistribute it and/or # modify it under the same terms as Perl itself. @@ -165,7 +163,7 @@ our ($db_version, $use_XSLoader, $splice_end_array_no_length, $splice_end_array, use Carp; -$VERSION = "1.827" ; +$VERSION = "1.828" ; $VERSION = eval $VERSION; # needed for dev releases { diff --git a/cpan/DB_File/DB_File.xs b/cpan/DB_File/DB_File.xs index 6790d5d..d7958fe 100644 --- a/cpan/DB_File/DB_File.xs +++ b/cpan/DB_File/DB_File.xs @@ -2,13 +2,11 @@ DB_File.xs -- Perl 5 interface to Berkeley DB - written by Paul Marquess <pmqs@cpan.org> - last modified 4th February 2007 - version 1.818 + Written by Paul Marquess <pmqs@cpan.org> All comments/suggestions/problems are welcome - Copyright (c) 1995-2012 Paul Marquess. All rights reserved. + Copyright (c) 1995-2013 Paul Marquess. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. @@ -208,6 +206,10 @@ # define AT_LEAST_DB_4_3 #endif +#if DB_VERSION_MAJOR >= 6 +# define AT_LEAST_DB_6_0 +#endif + #ifdef AT_LEAST_DB_3_3 # define WANT_ERROR #endif @@ -536,6 +538,19 @@ tidyUp(DB_File db) static int + +#ifdef AT_LEAST_DB_6_0 +#ifdef CAN_PROTOTYPE +btree_compare(DB * db, const DBT *key1, const DBT *key2, size_t* locp) +#else +btree_compare(db, key1, key2, locp) +DB * db ; +const DBT * key1 ; +const DBT * key2 ; +size_t* locp; +#endif /* CAN_PROTOTYPE */ + +#else /* Berkeley DB < 6.0 */ #ifdef AT_LEAST_DB_3_2 #ifdef CAN_PROTOTYPE @@ -558,6 +573,7 @@ const DBT * key2 ; #endif #endif +#endif { #ifdef dTHX ++++++ perl-nroff.diff ++++++ --- /var/tmp/diff_new_pack.da7PqI/_old 2013-06-25 17:22:50.000000000 +0200 +++ /var/tmp/diff_new_pack.da7PqI/_new 2013-06-25 17:22:50.000000000 +0200 @@ -1,5 +1,5 @@ ---- 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 +--- ./cpan/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm.orig 2013-05-01 02:52:55.000000000 +0000 ++++ ./cpan/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm 2013-06-06 13:04:50.000000000 +0000 @@ -64,7 +64,7 @@ sub _roffer_candidates { my( $self ) = @_; @@ -9,7 +9,7 @@ } sub _find_roffer { -@@ -246,6 +246,7 @@ sub _collect_nroff_switches { +@@ -253,6 +253,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 ); ++++++ perl-regexp-refoverflow.diff ++++++ --- /var/tmp/diff_new_pack.da7PqI/_old 2013-06-25 17:22:50.000000000 +0200 +++ /var/tmp/diff_new_pack.da7PqI/_new 2013-06-25 17:22:50.000000000 +0200 @@ -1,6 +1,6 @@ ---- ./regcomp.c.orig 2011-05-08 03:10:08.000000000 +0000 -+++ ./regcomp.c 2011-05-16 11:49:16.000000000 +0000 -@@ -6832,7 +6832,7 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I +--- ./regcomp.c.orig 2013-05-10 02:30:48.000000000 +0000 ++++ ./regcomp.c 2013-06-06 13:04:19.000000000 +0000 +@@ -8998,7 +8998,7 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I ret = reganode(pRExC_state, GOSUB, num); if (!SIZE_ONLY) { @@ -9,16 +9,16 @@ RExC_parse++; vFAIL("Reference to nonexistent group"); } -@@ -8428,7 +8428,7 @@ tryagain: +@@ -10654,7 +10654,7 @@ tryagain: if (num < 1) vFAIL("Reference to nonexistent or unclosed group"); } - if (!isg && num > 9 && num >= RExC_npar) + if (!isg && (num < 0 || (num > 9 && num >= RExC_npar))) + /* Probably a character specified in octal, e.g. \35 */ goto defchar; else { - char * const parse_start = RExC_parse - 1; /* MJD */ -@@ -8442,7 +8442,7 @@ tryagain: +@@ -10669,7 +10669,7 @@ tryagain: RExC_parse++; } if (!SIZE_ONLY) { @@ -27,9 +27,9 @@ vFAIL("Reference to nonexistent group"); } RExC_sawback = 1; -@@ -8666,7 +8666,7 @@ tryagain: +@@ -10934,7 +10934,7 @@ tryagain: 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': if (*p == '0' || - (isDIGIT(p[1]) && atoi(p) >= RExC_npar)) + (isDIGIT(p[1]) && (U32)atoi(p) >= (U32)RExC_npar)) ++++++ perl-saverecontext.diff ++++++ --- /var/tmp/diff_new_pack.da7PqI/_old 2013-06-25 17:22:50.000000000 +0200 +++ /var/tmp/diff_new_pack.da7PqI/_new 2013-06-25 17:22:50.000000000 +0200 @@ -1,6 +1,6 @@ ---- ./regcomp.c.orig 2011-05-16 11:56:49.000000000 +0000 -+++ ./regcomp.c 2011-05-16 11:57:14.000000000 +0000 -@@ -11929,8 +11929,23 @@ Perl_save_re_context(pTHX) +--- ./regcomp.c.orig 2013-06-06 13:04:19.000000000 +0000 ++++ ./regcomp.c 2013-06-06 13:15:51.000000000 +0000 +@@ -15461,8 +15461,21 @@ Perl_save_re_context(pTHX) if (gvp) { GV * const gv = *gvp; @@ -12,14 +12,12 @@ + SV * osv = *sptr; + SV * nsv = newSV(0); + save_pushptrptr(SvREFCNT_inc_simple(gv), SvREFCNT_inc(osv), SAVEt_SV); -+ if (SvTYPE(osv) >= SVt_PVMG && SvMAGIC(osv) && SvTYPE(osv) != SVt_PVGV) { ++ if (SvTYPE(osv) >= SVt_PVMG && SvMAGIC(osv)) { + if (SvGMAGICAL(osv)) { -+ const bool oldtainted = PL_tainted; + SvFLAGS(osv) |= (SvFLAGS(osv) & + (SVp_IOK|SVp_NOK|SVp_POK)) >> PRIVSHIFT; -+ PL_tainted = oldtainted; + } -+ mg_localize(osv, nsv, 1); ++ mg_localize(osv, nsv, (bool)1); + } + *sptr = nsv; + } -- To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org For additional commands, e-mail: opensuse-commit+help@opensuse.org -- 1xx <ItSANgo@gmail.com> <https://twitter.com/ItSANgo> <http://d.hatena.ne.jp/Itisango/> <http://www.amazon.co.jp/exec/obidos/redirect?link_code=ur2&camp=247&tag=13aaa-22&creative=1211&path=tg/cm/member-reviews/-/A1BFYFPAF3XXSZ/1/ref%3Dcm%5Fcr%5Fauth> -- To unsubscribe, e-mail: opensuse-ja+unsubscribe@opensuse.org To contact the owner, e-mail: opensuse-ja+owner@opensuse.org
participants (1)
-
1xx