Hello community,
here is the log from the commit of package perl-File-Unpack for
openSUSE:Factory checked in at 2019-07-13 13:50:08
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-File-Unpack (Old)
and /work/SRC/openSUSE:Factory/.perl-File-Unpack.new.4615 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-File-Unpack"
Sat Jul 13 13:50:08 2019 rev:6 rq:714897 version:0.70
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-File-Unpack/perl-File-Unpack.changes
2019-07-11 13:18:50.710758853 +0200
+++
/work/SRC/openSUSE:Factory/.perl-File-Unpack.new.4615/perl-File-Unpack.changes
2019-07-13 14:00:52.346889289 +0200
@@ -1,0 +2,5 @@
+Wed Jul 10 15:50:50 UTC 2019 - Stephan Kulow <co...@suse.com>
+
+- Take 11.diff from https://github.com/jnweiger/perl-File-Unpack/pull/11
+
+-------------------------------------------------------------------
New:
----
11.diff
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-File-Unpack.spec ++++++
--- /var/tmp/diff_new_pack.noTtbb/_old 2019-07-13 14:00:53.538888925 +0200
+++ /var/tmp/diff_new_pack.noTtbb/_new 2019-07-13 14:00:53.538888925 +0200
@@ -28,6 +28,7 @@
Patch2:
https://patch-diff.githubusercontent.com/raw/jnweiger/perl-File-Unpack/pull/6.diff
Patch3:
https://patch-diff.githubusercontent.com/raw/jnweiger/perl-File-Unpack/pull/9.diff
Patch4:
https://patch-diff.githubusercontent.com/raw/jnweiger/perl-File-Unpack/pull/10.diff
+Patch5:
https://patch-diff.githubusercontent.com/raw/jnweiger/perl-File-Unpack/pull/11.diff
Url: https://github.com/jnweiger/perl-File-Unpack
BuildRoot: %{_tmppath}/%{name}-%{version}-build
@@ -187,6 +188,7 @@
%patch2 -p1
%patch3 -p1
%patch4 -p1
+%patch5 -p1
%build
%{__perl} Makefile.PL INSTALLDIRS=vendor
++++++ 11.diff ++++++
diff --git a/Unpack.pm b/Unpack.pm
index d5354ac..966111b 100644
--- a/Unpack.pm
+++ b/Unpack.pm
@@ -104,7 +104,7 @@ my $UNCOMP_BUFSZ = 1024;
# unpack will give up, after unpacking that many levels. It is more likely we
# got into a loop by then, than really have that many levels.
-my $RECURSION_LIMIT = 200;
+my $RECURSION_LIMIT = 50;
# Suggested place, where admins should install the helpers bundled with this
module.
sub _default_helper_dir {
$ENV{FILE_UNPACK_HELPER_DIR}||'/usr/share/File-Unpack/helper' }
@@ -855,7 +855,7 @@ sub unpack
if (($self->{recursion_level}||0) > $RECURSION_LIMIT)
{
- push @{$self->{error}}, "unpack('$archive','$destdir'): recursion limit
$RECURSION_LIMIT";
+ warn "unpack('$archive','$destdir'): recursion limit $RECURSION_LIMIT";
## this is only an emergency stop.
return 1;
}
