diff --git a/11.diff b/11.diff new file mode 100644 index 0000000..523d859 --- /dev/null +++ b/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; + } diff --git a/perl-File-Unpack.changes b/perl-File-Unpack.changes index 1b095c3..2509796 100644 --- a/perl-File-Unpack.changes +++ b/perl-File-Unpack.changes @@ -1,3 +1,8 @@ +------------------------------------------------------------------- +Wed Jul 10 15:50:50 UTC 2019 - Stephan Kulow + +- Take 11.diff from https://github.com/jnweiger/perl-File-Unpack/pull/11 + ------------------------------------------------------------------- Wed Jul 10 11:31:36 UTC 2019 - Stephan Kulow diff --git a/perl-File-Unpack.spec b/perl-File-Unpack.spec index 3bf4c6e..9fcdf06 100644 --- a/perl-File-Unpack.spec +++ b/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