From 66cbb0c718faeded8d73598e4bccc517e1859552 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Thu, 21 Feb 2008 14:23:08 +0000
Subject: (inspect) lazy load File::MimeInfo::Magic & kill a perl_checker
 warning

---
 Rpmdrake/rpmnew.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Rpmdrake/rpmnew.pm')

diff --git a/Rpmdrake/rpmnew.pm b/Rpmdrake/rpmnew.pm
index 37fb9dc0..2e0d1971 100644
--- a/Rpmdrake/rpmnew.pm
+++ b/Rpmdrake/rpmnew.pm
@@ -31,7 +31,6 @@ use Rpmdrake::init;
 use Rpmdrake::pkg;
 use Rpmdrake::open_db;
 use Rpmdrake::formatting;
-use File::MimeInfo::Magic;
 use mygtk2 qw(gtknew);  #- do not import anything else, especially gtkadd() which conflicts with ugtk2 one
 use ugtk2 qw(:all);
 use Exporter;
@@ -132,7 +131,8 @@ sub inspect {
 	my %files = (file => $file, rpmnew => $rpmnew);
      foreach (keys %files) {
          gtktext_insert($texts{$_}, [ [ scalar(cat_($files{$_})), { 'font' => 'monospace' } ] ]);
-         my $mime_type = mimetype($files{$_});
+         require File::MimeInfo::Magic;
+         my $mime_type = File::MimeInfo::Magic::mimetype($files{$_});
          next if !$mime_type;
          my $lang = $lang_manager->get_language_from_mime_type($mime_type);
          my $buffer = $texts{$_}->get_buffer;
-- 
cgit v1.2.1