+filelist=`sed "s/['\"]/\\\&/g"|egrep -v "\.(ph|pod|gz|al|ix)$"`
+
+echo $filelist|/usr/lib/rpm/find-provides
-+FPPATH/find-perl.prov $filelist
-+
++provides_perl=`FPPATH/find-perl.prov $filelist`
++echo "$provides_perl" | grep -v '^perl(DynaLoader)$'
--- perl5.005_03/find-perl.prov Thu Jan 1 01:00:00 1970
+++ perl5.005_03.new/find-perl.prov Fri Oct 22 17:44:18 1999
@@ -0,0 +1,116 @@
BuildRequires: gdbm-devel
BuildRoot: %{tmpdir}/%{name}-%{version}-root-%(id -u -n)
Obsoletes: perl-lib
+Obsoletes: perl-mod-skel
+Provides: perl(DynaLoader)
%description
Perl is an interpreted language optimized for scanning arbitrary text
%package -n sperl
Summary: Practical Extraction and Report Language (SUID root binary)
-Summary(pl): Practical Extraction and Report Language (SUID root binaria)
+Summary(pl): Practical Extraction and Report Language (binarka SUID root)
Group: Applications/Text
Group(de): Applikationen/Text
Group(fr): Utilitaires/Texte
Practical Extraction and Report Language (SUID root binary).
%description -n sperl -l pl
-Practical Extraction and Report Language (SUID root binaria).
+Practical Extraction and Report Language (binarka SUID root).
%package modules
Summary: Practical Extraction and Report Language - modules