Accepting request 250240 from devel:languages:perl

Automatic submission by obs-autosubmit

OBS-URL: https://build.opensuse.org/request/show/250240
OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl?expand=0&rev=93

DataDumper-no-infinite-recursion.diff

@@ -0,0 +1,236 @@
+--- ./MANIFEST.orig	2014-09-14 11:30:59.000000000 +0000
++++ ./MANIFEST	2014-09-17 12:33:11.840499982 +0000
+@@ -2994,6 +2994,7 @@ dist/Data-Dumper/t/perl-74170.t	Regressi
+ dist/Data-Dumper/t/purity_deepcopy_maxdepth.t	See if three Data::Dumper functions work
+ dist/Data-Dumper/t/qr.t		See if Data::Dumper works with qr|/|
+ dist/Data-Dumper/t/quotekeys.t	See if Data::Dumper::Quotekeys works
++dist/Data-Dumper/t/recurse.t	See if Data::Dumper::Maxrecurse works
+ dist/Data-Dumper/t/seen.t	See if Data::Dumper::Seen works
+ dist/Data-Dumper/t/sortkeys.t	See if Data::Dumper::Sortkeys works
+ dist/Data-Dumper/t/sparseseen.t	See if Data::Dumper::Sparseseen works
+--- ./dist/Data-Dumper/Dumper.pm.orig	2014-09-14 11:31:01.000000000 +0000
++++ ./dist/Data-Dumper/Dumper.pm	2014-09-17 12:33:11.840499982 +0000
+@@ -56,6 +56,7 @@ $Useperl    = 0         unless defined $
+ $Sortkeys   = 0         unless defined $Sortkeys;
+ $Deparse    = 0         unless defined $Deparse;
+ $Sparseseen = 0         unless defined $Sparseseen;
++$Maxrecurse = 1000      unless defined $Maxrecurse;
+ 
+ #
+ # expects an arrayref of values to be dumped.
+@@ -92,6 +93,7 @@ sub new {
+         'bless'    => $Bless,    # keyword to use for "bless"
+ #        expdepth   => $Expdepth,   # cutoff depth for explicit dumping
+         maxdepth   => $Maxdepth,   # depth beyond which we give up
++	maxrecurse => $Maxrecurse, # depth beyond which we abort
+         useperl    => $Useperl,    # use the pure Perl implementation
+         sortkeys   => $Sortkeys,   # flag or filter for sorting hash keys
+         deparse    => $Deparse,    # use B::Deparse for coderefs
+@@ -350,6 +352,12 @@ sub _dump {
+       return qq['$val'];
+     }
+ 
++    # avoid recursing infinitely [perl #122111]
++    if ($s->{maxrecurse} > 0
++        and $s->{level} >= $s->{maxrecurse}) {
++        die "Recursion limit of $s->{maxrecurse} exceeded";
++    }
++
+     # we have a blessed ref
+     my ($blesspad);
+     if ($realpack and !$no_bless) {
+@@ -680,6 +688,11 @@ sub Maxdepth {
+   defined($v) ? (($s->{'maxdepth'} = $v), return $s) : $s->{'maxdepth'};
+ }
+ 
++sub Maxrecurse {
++  my($s, $v) = @_;
++  defined($v) ? (($s->{'maxrecurse'} = $v), return $s) : $s->{'maxrecurse'};
++}
++
+ sub Useperl {
+   my($s, $v) = @_;
+   defined($v) ? (($s->{'useperl'} = $v), return $s) : $s->{'useperl'};
+@@ -1105,6 +1118,16 @@ no maximum depth.
+ 
+ =item *
+ 
++$Data::Dumper::Maxrecurse  I<or>  $I<OBJ>->Maxrecurse(I<[NEWVAL]>)
++
++Can be set to a positive integer that specifies the depth beyond which
++recursion into a structure will throw an exception.  This is intended
++as a security measure to prevent perl running out of stack space when
++dumping an excessively deep structure.  Can be set to 0 to remove the
++limit.  Default is 1000.
++
++=item *
++
+ $Data::Dumper::Useperl  I<or>  $I<OBJ>->Useperl(I<[NEWVAL]>)
+ 
+ Can be set to a boolean value which controls whether the pure Perl
+--- ./dist/Data-Dumper/Dumper.xs.orig	2014-09-14 11:31:01.000000000 +0000
++++ ./dist/Data-Dumper/Dumper.xs	2014-09-17 12:34:36.236138989 +0000
+@@ -28,7 +28,7 @@ static I32 DD_dump (pTHX_ SV *val, const
+ 		    SV *pad, SV *xpad, SV *apad, SV *sep, SV *pair,
+ 		    SV *freezer, SV *toaster,
+ 		    I32 purity, I32 deepcopy, I32 quotekeys, SV *bless,
+-		    I32 maxdepth, SV *sortkeys, int use_sparse_seen_hash, I32 useqq);
++		    I32 maxdepth, SV *sortkeys, int use_sparse_seen_hash, I32 useqq, IV maxrecurse);
+ 
+ #ifndef HvNAME_get
+ #define HvNAME_get HvNAME
+@@ -412,7 +412,7 @@ DD_dump(pTHX_ SV *val, const char *name,
+ 	AV *postav, I32 *levelp, I32 indent, SV *pad, SV *xpad,
+ 	SV *apad, SV *sep, SV *pair, SV *freezer, SV *toaster, I32 purity,
+ 	I32 deepcopy, I32 quotekeys, SV *bless, I32 maxdepth, SV *sortkeys,
+-        int use_sparse_seen_hash, I32 useqq)
++        int use_sparse_seen_hash, I32 useqq, IV maxrecurse)
+ {
+     char tmpbuf[128];
+     Size_t i;
+@@ -589,6 +589,10 @@ DD_dump(pTHX_ SV *val, const char *name,
+ 	    return 1;
+ 	}
+ 
++	if (maxrecurse > 0 && *levelp >= maxrecurse) {
++	    croak("Recursion limit of %" IVdf " exceeded", maxrecurse);
++	}
++
+ 	if (realpack && !no_bless) {				/* we have a blessed ref */
+ 	    STRLEN blesslen;
+ 	    const char * const blessstr = SvPV(bless, blesslen);
+@@ -674,7 +678,8 @@ DD_dump(pTHX_ SV *val, const char *name,
+ 		DD_dump(aTHX_ ival, SvPVX_const(namesv), SvCUR(namesv), retval, seenhv,
+ 			postav, levelp,	indent, pad, xpad, apad, sep, pair,
+ 			freezer, toaster, purity, deepcopy, quotekeys, bless,
+-			maxdepth, sortkeys, use_sparse_seen_hash, useqq);
++			maxdepth, sortkeys, use_sparse_seen_hash, useqq,
++			maxrecurse);
+ 		sv_catpvn(retval, ")}", 2);
+ 	    }						     /* plain */
+ 	    else {
+@@ -682,7 +687,8 @@ DD_dump(pTHX_ SV *val, const char *name,
+ 		DD_dump(aTHX_ ival, SvPVX_const(namesv), SvCUR(namesv), retval, seenhv,
+ 			postav, levelp,	indent, pad, xpad, apad, sep, pair,
+ 			freezer, toaster, purity, deepcopy, quotekeys, bless,
+-			maxdepth, sortkeys, use_sparse_seen_hash, useqq);
++			maxdepth, sortkeys, use_sparse_seen_hash, useqq,
++			maxrecurse);
+ 	    }
+ 	    SvREFCNT_dec(namesv);
+ 	}
+@@ -694,7 +700,8 @@ DD_dump(pTHX_ SV *val, const char *name,
+ 	    DD_dump(aTHX_ ival, SvPVX_const(namesv), SvCUR(namesv), retval, seenhv,
+ 		    postav, levelp,	indent, pad, xpad, apad, sep, pair,
+ 		    freezer, toaster, purity, deepcopy, quotekeys, bless,
+-		    maxdepth, sortkeys, use_sparse_seen_hash, useqq);
++		    maxdepth, sortkeys, use_sparse_seen_hash, useqq,
++		    maxrecurse);
+ 	    SvREFCNT_dec(namesv);
+ 	}
+ 	else if (realtype == SVt_PVAV) {
+@@ -767,7 +774,8 @@ DD_dump(pTHX_ SV *val, const char *name,
+ 		DD_dump(aTHX_ elem, iname, ilen, retval, seenhv, postav,
+ 			levelp,	indent, pad, xpad, apad, sep, pair,
+ 			freezer, toaster, purity, deepcopy, quotekeys, bless,
+-			maxdepth, sortkeys, use_sparse_seen_hash, useqq);
++			maxdepth, sortkeys, use_sparse_seen_hash,
++			useqq, maxrecurse);
+ 		if (ix < ixmax)
+ 		    sv_catpvn(retval, ",", 1);
+ 	    }
+@@ -970,7 +978,8 @@ DD_dump(pTHX_ SV *val, const char *name,
+ 		DD_dump(aTHX_ hval, SvPVX_const(sname), SvCUR(sname), retval, seenhv,
+ 			postav, levelp,	indent, pad, xpad, newapad, sep, pair,
+ 			freezer, toaster, purity, deepcopy, quotekeys, bless,
+-			maxdepth, sortkeys, use_sparse_seen_hash, useqq);
++			maxdepth, sortkeys, use_sparse_seen_hash, useqq,
++			maxrecurse);
+ 		SvREFCNT_dec(sname);
+ 		Safefree(nkey_buffer);
+ 		if (indent >= 2)
+@@ -1179,7 +1188,8 @@ DD_dump(pTHX_ SV *val, const char *name,
+ 				seenhv, postav, &nlevel, indent, pad, xpad,
+ 				newapad, sep, pair, freezer, toaster, purity,
+ 				deepcopy, quotekeys, bless, maxdepth, 
+-				sortkeys, use_sparse_seen_hash, useqq);
++				sortkeys, use_sparse_seen_hash, useqq,
++				maxrecurse);
+ 			SvREFCNT_dec(e);
+ 		    }
+ 		}
+@@ -1269,6 +1279,7 @@ Data_Dumper_Dumpxs(href, ...)
+ 	    SV *val, *name, *pad, *xpad, *apad, *sep, *pair, *varname;
+ 	    SV *freezer, *toaster, *bless, *sortkeys;
+ 	    I32 purity, deepcopy, quotekeys, maxdepth = 0;
++	    IV maxrecurse = 1000;
+ 	    char tmpbuf[1024];
+ 	    I32 gimme = GIMME;
+             int use_sparse_seen_hash = 0;
+@@ -1355,6 +1366,8 @@ Data_Dumper_Dumpxs(href, ...)
+ 		    bless = *svp;
+ 		if ((svp = hv_fetch(hv, "maxdepth", 8, FALSE)))
+ 		    maxdepth = SvIV(*svp);
++		if ((svp = hv_fetch(hv, "maxrecurse", 10, FALSE)))
++		    maxrecurse = SvIV(*svp);
+ 		if ((svp = hv_fetch(hv, "sortkeys", 8, FALSE))) {
+ 		    sortkeys = *svp;
+ 		    if (! SvTRUE(sortkeys))
+@@ -1434,7 +1447,8 @@ Data_Dumper_Dumpxs(href, ...)
+ 		    DD_dump(aTHX_ val, SvPVX_const(name), SvCUR(name), valstr, seenhv,
+ 			    postav, &level, indent, pad, xpad, newapad, sep, pair,
+ 			    freezer, toaster, purity, deepcopy, quotekeys,
+-			    bless, maxdepth, sortkeys, use_sparse_seen_hash, useqq);
++			    bless, maxdepth, sortkeys, use_sparse_seen_hash,
++			    useqq, maxrecurse);
+ 		    SPAGAIN;
+ 		
+ 		    if (indent >= 2 && !terse)
+--- ./dist/Data-Dumper/t/recurse.t.orig	2014-09-17 12:33:11.841499978 +0000
++++ ./dist/Data-Dumper/t/recurse.t	2014-09-17 12:33:11.841499978 +0000
+@@ -0,0 +1,45 @@
++#!perl
++
++# Test the Maxrecurse option
++
++use strict;
++use Test::More tests => 32;
++use Data::Dumper;
++
++SKIP: {
++    skip "no XS available", 16
++      if $Data::Dumper::Useperl;
++    local $Data::Dumper::Useperl = 1;
++    test_recursion();
++}
++
++test_recursion();
++
++sub test_recursion {
++    my $pp = $Data::Dumper::Useperl ? "pure perl" : "XS";
++    $Data::Dumper::Purity = 1; # make sure this has no effect
++    $Data::Dumper::Indent = 0;
++    $Data::Dumper::Maxrecurse = 1;
++    is(eval { Dumper([]) }, '$VAR1 = [];', "$pp: maxrecurse 1, []");
++    is(eval { Dumper([[]]) }, undef, "$pp: maxrecurse 1, [[]]");
++    ok($@, "exception thrown");
++    is(eval { Dumper({}) }, '$VAR1 = {};', "$pp: maxrecurse 1, {}");
++    is(eval { Dumper({ a => 1 }) }, q($VAR1 = {'a' => 1};),
++       "$pp: maxrecurse 1, { a => 1 }");
++    is(eval { Dumper({ a => {} }) }, undef, "$pp: maxrecurse 1, { a => {} }");
++    ok($@, "exception thrown");
++    is(eval { Dumper(\1) }, "\$VAR1 = \\1;", "$pp: maxrecurse 1, \\1");
++    is(eval { Dumper(\\1) }, undef, "$pp: maxrecurse 1, \\1");
++    ok($@, "exception thrown");
++    $Data::Dumper::Maxrecurse = 3;
++    is(eval { Dumper(\1) }, "\$VAR1 = \\1;", "$pp: maxrecurse 3, \\1");
++    is(eval { Dumper(\(my $s = {})) }, "\$VAR1 = \\{};", "$pp: maxrecurse 3, \\{}");
++    is(eval { Dumper(\(my $s = { a => [] })) }, "\$VAR1 = \\{'a' => []};",
++       "$pp: maxrecurse 3, \\{ a => [] }");
++    is(eval { Dumper(\(my $s = { a => [{}] })) }, undef,
++       "$pp: maxrecurse 3, \\{ a => [{}] }");
++    ok($@, "exception thrown");
++    $Data::Dumper::Maxrecurse = 0;
++    is(eval { Dumper([[[[[]]]]]) }, q($VAR1 = [[[[[]]]]];),
++       "$pp: check Maxrecurse doesn't set limit to 0 recursion");
++}

perl-5.20.0.tar.bz2

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

perl-5.20.1.tar.bz2

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

perl.changes

@@ -1,3 +1,13 @@
+-------------------------------------------------------------------
+Wed Sep 17 14:22:41 CEST 2014 - mls@suse.de
+
+- update to perl-5.20.1
+  * some performance improvements and bug fixes
+  * utf8, version, File::Copy, Exporter and other modules
+  have been updated
+- fix infinite recursion in Data::Dumper [bnc#896715]
+  new patch: DataDumper-no-infinite-recursion.diff
+
 -------------------------------------------------------------------
 Sun Jun  8 12:13:23 UTC 2014 - coolo@suse.com
 

perl.spec

@@ -21,9 +21,9 @@ Name:           perl
 Summary:        The Perl interpreter
 License:        Artistic-1.0 or GPL-2.0+
 Group:          Development/Languages/Perl
-Version:        5.20.0
+Version:        5.20.1
 Release:        0
-%define pversion 5.20.0
+%define pversion 5.20.1
 Url:            http://www.perl.org/
 Source:         http://www.cpan.org/src/5.0/perl-%{version}.tar.bz2
 Source1:        %name-rpmlintrc
@@ -39,6 +39,7 @@ Patch6:         perl-saverecontext.diff
 Patch8:         skip_time_hires.patch
 Patch9:         perl-incfix.diff
 Patch11:        perl-5.18.2-overflow.diff
+Patch12:        DataDumper-no-infinite-recursion.diff
 BuildRoot:      %{_tmppath}/%{name}-%{version}-build
 PreReq:         perl-base = %version
 #PreReq:         %fillup_prereq
@@ -55,8 +56,9 @@ Provides:       perl = %pversion-%release
 %endif
 Provides:       perl-500
 Provides:       perl(:MODULE_COMPAT_%pversion)
-#%%global versionlist 5.20.0
+%global versionlist 5.20.0
 Provides:       perl-Filter-Simple = 0.91
+Provides:       perl(:MODULE_COMPAT_5.20.0)
 Obsoletes:      perl-Filter-Simple < 0.91
 Provides:       perl-I18N-LangTags = 0.40
 Obsoletes:      perl-I18N-LangTags < 0.40
@@ -94,16 +96,16 @@ Obsoletes:      perl-Pod-Simple < 3.28
 Provides:       perl-ExtUtils-ParseXS = 3.24
 Obsoletes:      perl-CPAN-Meta <= 2.140640
 Obsoletes:      perl-CPAN-Meta-YAML <= 0.012
-Obsoletes:      perl-ExtUtils-CBuilder <= 0.280216
+Obsoletes:      perl-ExtUtils-CBuilder <= 0.280217
 Obsoletes:      perl-ExtUtils-ParseXS < 3.24
 Obsoletes:      perl-IO-Socket-IP <= 0.29
 Obsoletes:      perl-Parse-CPAN-Meta <= 1.4414
-Obsoletes:      perl-PathTools <= 3.47
+Obsoletes:      perl-PathTools <= 3.48
 Obsoletes:      perl-autodie <= 2.23
 Provides:       perl-Test-Harness = 3.30
 Obsoletes:      perl-Test-Harness < 3.30
-Provides:       perl-version = 0.9908
+Provides:       perl-version = 0.9909
-Obsoletes:      perl-version < 0.9908
+Obsoletes:      perl-version < 0.9909
 
 %description
 perl - Practical Extraction and Report Language
@@ -172,6 +174,7 @@ cp -p %{S:3} .
 %endif
 %patch9
 %patch11
+%patch12
 
 %build
 cp -a lib savelib