Filter out unwanted provides for perl shared objects

perl-Digest-MD4.spec

@@ -1,6 +1,6 @@
 Name:		perl-Digest-MD4
 Version:	1.5
-Release:	7%{?dist}
+Release:	8%{?dist}
 Summary:	Perl interface to the MD4 Algorithm
 Group:		Development/Libraries
 License:	GPL+ or Artistic
@@ -10,6 +10,12 @@ BuildRoot:	%{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
 BuildRequires:	perl(ExtUtils::MakeMaker), db4-devel, gdbm-devel
 Requires:	perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
 
+# don't "provide" private Perl libs
+%global _use_internal_dependency_generator 0
+%global __deploop() while read FILE; do /usr/lib/rpm/rpmdeps -%{1} ${FILE}; done | /bin/sort -u
+%global __find_provides /bin/sh -c "%{__grep} -v '%{perl_vendorarch}/.*\\.so$' | %{__deploop P}"
+%global __find_requires /bin/sh -c "%{__deploop R}"
+
 %description
 The Digest::MD4 module allows you to use the RSA Data Security Inc. MD4 Message
 Digest algorithm from within Perl programs. The algorithm takes as input a
@@ -28,7 +34,7 @@ message of arbitrary length and produces as output a 128-bit "fingerprint" or
 %{__make} pure_install PERL_INSTALL_ROOT=%{buildroot}
 /usr/bin/find %{buildroot} -type f -name .packlist -exec %{__rm} -f {} ';'
 /usr/bin/find %{buildroot} -type f -name '*.bs' -empty -exec %{__rm} -f {} ';'
-/usr/bin/find %{buildroot} -depth -type d -exec %{__rmdir} {} 2>/dev/null ';'
+/usr/bin/find %{buildroot} -depth -type d -exec /bin/rmdir {} 2>/dev/null ';'
 %{__chmod} -R u+w %{buildroot}/*
 
 %check
@@ -45,6 +51,9 @@ message of arbitrary length and produces as output a 128-bit "fingerprint" or
 %{_mandir}/man3/*.3pm*
 
 %changelog
+* Sat Mar  7 2009 Paul Howarth <paul@city-fan.org> - 1.5-8
+- Filter out unwanted provides for perl shared objects
+
 * Thu Feb 26 2009 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 1.5-7
 - Rebuilt for https://fedoraproject.org/wiki/Fedora_11_Mass_Rebuild