From f0b538539e5705ef987c8d0d7a2645d6d5f88ba0 Mon Sep 17 00:00:00 2001 From: Michael Scherer Date: Tue, 17 Jan 2006 10:56:18 +0000 Subject: - 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. --- rpmbuildupdate | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'rpmbuildupdate') 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; } -- cgit v1.2.1