- use a dedicated module instead of running the file command, in order to fix gtkhtml downloading problem

( as the regexp was also matching on the name ), problem spoted by goetz.

1 files changed, 2 insertions, 1 deletions

diff --git a/rpmbuildupdate b/rpmbuildupdate
index b8bd3c6..9d64ebc 100755
--- a/rpmbuildupdate
+++ b/rpmbuildupdate
@@ -36,6 +36,7 @@ use File::Spec;
 use File::Path;
 use RPM4;
 use String::ShellQuote;
+use File::MimeInfo::Magic;
 
 my %config;
 
@@ -62,7 +63,7 @@ sub file_not_found {
 
 sub is_html {
     my ($basename) = @_;
-    `file $basename` =~ /HTML/i and return 1;
+    mimetype($basename) =~ /HTML/i and return 1;
     return 0;
 }