forked from pool/perl-File-Unpack
Tina Müller
5567991fae
- Take 12.diff from https://github.com/jnweiger/perl-File-Unpack/pull/12 This is important for Cavil (https://github.com/openSUSE/cavil). We have some packages getting stuck in legal review because they bundle more than 999 tarballs. OBS-URL: https://build.opensuse.org/request/show/874567 OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-File-Unpack?expand=0&rev=100
14 lines
526 B
Diff
14 lines
526 B
Diff
diff --git a/Unpack.pm b/Unpack.pm
|
|
index d5354ac..1cc7348 100644
|
|
--- a/Unpack.pm
|
|
+++ b/Unpack.pm
|
|
@@ -1662,7 +1662,7 @@ sub _unused_pathname
|
|
## try to come up with a very similar name, just different suffix.
|
|
## be compatible with path name shortening in unpack()
|
|
my $test_path = $wanted_path . '._';
|
|
- for my $i ('', 1..999)
|
|
+ for my $i ('', 1..99999)
|
|
{
|
|
# All our mime detectors work on file contents, rather than on suffixes.
|
|
# Thus messing with the suffix should be okay here.
|