Changeset 336

Timestamp:

01/24/11 00:38:58 (13 years ago)

Author:

nanardon

Message:

• use Mime::Type to not index binary files

File:

• server/trunk/web/lib/Sophie/Scan/RpmParser/Sources.pm (modified) (2 diffs)

server/trunk/web/lib/Sophie/Scan/RpmParser/Sources.pm

@@ -10 +10 @@
 use Encode::Guess;
 use Encode;
+use MIME::Types;
 
 sub run {
@@ -37 +38 @@
                 return 1;
             }
-            $fname =~ /\.(gz|zip|bz2|xz|lzma)$/ and return 1;
+
+            if (my $plaintext = MIME::Types->new->mimeTypeOf($fname)) {
+                $plaintext->isBinary and return 1;
+            }
+            
             my $rawcontent = $file->get_content;
             my $content;