- Take 11.diff from https://github.com/jnweiger/perl-File-Unpack/pull/11

OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-File-Unpack?expand=0&rev=97

11.diff

@@ -0,0 +1,22 @@
+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;
+     }

perl-File-Unpack.changes

@@ -1,3 +1,8 @@
+-------------------------------------------------------------------
+Wed Jul 10 15:50:50 UTC 2019 - Stephan Kulow <coolo@suse.com>
+
+- Take 11.diff from https://github.com/jnweiger/perl-File-Unpack/pull/11
+
 -------------------------------------------------------------------
 Wed Jul 10 11:31:36 UTC 2019 - Stephan Kulow <coolo@suse.com>
 

perl-File-Unpack.spec

@@ -28,6 +28,7 @@ Patch1:         https://patch-diff.githubusercontent.com/raw/jnweiger/perl-File-
 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 @@ ships with the File::Unpack perl module.
 %patch2 -p1
 %patch3 -p1
 %patch4 -p1
+%patch5 -p1
 
 %build
 %{__perl} Makefile.PL INSTALLDIRS=vendor