Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
openSUSE:Backports:SLE-15-SP4:FactoryCandidates
perl-File-Unpack
10.diff
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File 10.diff of Package perl-File-Unpack
diff --git a/Unpack.pm b/Unpack.pm index d5354ac..69ef617 100644 --- a/Unpack.pm +++ b/Unpack.pm @@ -2301,7 +2301,11 @@ sub mime ## flm can say 'cannot open \'IP\' (No such file or directory)' ## flm can say 'CDF V2 Document, corrupt: Can\'t read SAT' (application/vnd.ms-excel) - my $mime1 = $flm->checktype_contents($in{buf}); + my $mime1 = eval { $flm->checktype_contents($in{buf}) }; + if ($@) { + warn $@; + return [ 'x-system/x-error', undef, "libmimemagic exception"]; + } if ($mime1 =~ m{, corrupt: } or $mime1 =~ m{^application/octet-stream\b}) { # application/x-iso9660-image is reported as application/octet-stream if the buffer is short.
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor
