diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2008-02-21 14:23:08 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2008-02-21 14:23:08 +0000 |
| commit | 66cbb0c718faeded8d73598e4bccc517e1859552 (patch) | |
| tree | 4022097766c9283d856dec2159a1460546f495be | |
| parent | c9ccd6ae176d97095e5c5ebf832cccc4d4ac2030 (diff) | |
| download | rpmdrake-66cbb0c718faeded8d73598e4bccc517e1859552.tar rpmdrake-66cbb0c718faeded8d73598e4bccc517e1859552.tar.gz rpmdrake-66cbb0c718faeded8d73598e4bccc517e1859552.tar.bz2 rpmdrake-66cbb0c718faeded8d73598e4bccc517e1859552.tar.xz rpmdrake-66cbb0c718faeded8d73598e4bccc517e1859552.zip | |
(inspect) lazy load File::MimeInfo::Magic & kill a perl_checker warning
| -rw-r--r-- | Rpmdrake/rpmnew.pm | 4 |
1 files changed, 2 insertions, 2 deletions
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; |