Use MIME type database from mailcap

perl-LWP-MediaTypes.spec

@@ -1,6 +1,6 @@
 Name:           perl-LWP-MediaTypes
 Version:        6.01
-Release:        1%{?dist}
+Release:        2%{?dist}
 Summary:        Guess media type for a file or a URL
 License:        GPL+ or Artistic
 Group:          Development/Libraries
@@ -14,6 +14,7 @@ BuildRequires:  perl(File::Basename)
 BuildRequires:  perl(Test)
 Requires:       perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
 Requires:       perl(File::Basename)
+Requires:       mailcap
 Conflicts:      perl-libwww-perl < 6
 
 %description
@@ -25,6 +26,9 @@ used instead. For backwards compatibility we will also look for
 
 %prep
 %setup -q -n LWP-MediaTypes-%{version}
+# Use system-wide mailcap database
+sed -i -e '/my @priv_files = ();/ s|()|("%{_sysconfdir}/mime.types")|' \
+    lib/LWP/MediaTypes.pm
 
 %build
 %{__perl} Makefile.PL INSTALLDIRS=vendor
@@ -46,6 +50,9 @@ make test
 %{_mandir}/man3/*
 
 %changelog
+* Thu Mar 17 2011 Petr Pisar <ppisar@redhat.com> - 6.01-2
+- Use MIME type database from mailcap
+
 * Thu Mar 17 2011 Petr Pisar <ppisar@redhat.com> 6.01-1
 - Specfile autogenerated by cpanspec 1.78.
 - Remove BuildRoot stuff