- specflags support;

[packages/rpm.git] / rpm-find-perl-provides

diff --git a/rpm-find-perl-provides b/rpm-find-perl-provides
index 38ae6786f6c5715c3ce70ccb65d2bc83673c5383..b4f3f418ae7790e52e8d9c577919327927296a40 100644 (file)
--- a/rpm-find-perl-provides
+++ b/rpm-find-perl-provides
@@ -1,8 +1,21 @@
 #!/bin/sh
 ulimit -c 0
+cd `rpm --eval %{_builddir}`
 
 filelist=`sed "s/['\"]/\\\&/g"`
+if [ -f __rpm_noautoprovfiles ] ; then
+       for i in `cat __rpm_noautoprovfiles`; do
+               filelist=`echo $filelist | sed "s![[:space:]]*$i[[:space:]]*!!g"`
+       done
+fi
+
 
 echo $filelist|/usr/lib/rpm/find-provides
-/usr/lib/rpm/perl.prov $filelist
+provides_perl=`echo $filelist | xargs /usr/lib/rpm/perl.prov`
+if [ -f __rpm_noautoprov ] ; then
+       for i in `cat __rpm_noautoprov`; do
+               provides_perl=`echo $provides_perl | sed "s!\<$i[[:space:]]*!!g"`
+       done
+fi
 
+echo "$provides_perl"