perl/perl-File-Unpack
SHA256
8
0
Fork 0
forked from pool/perl-File-Unpack
Code Pull Requests Activity

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

Browse Source 
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-File-Unpack?expand=0&rev=97
This commit is contained in:
Stephan Kulow
2019-07-10 15:51:28 +00:00
committed by Git OBS Bridge
parent aedf16efcd
commit 18cf79b5fb
3 changed files with 29 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
11.diff Normal file
View File

@@ -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;
}

5
perl-File-Unpack.changes
View File

@@ -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>

2
perl-File-Unpack.spec
View File

@@ -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