X-Git-Url: http://git.pld-linux.org/?a=blobdiff_plain;f=rpm-find-perl-provides;h=b4f3f418ae7790e52e8d9c577919327927296a40;hb=591a2d8e2ea727eebb3318b3cd5a4d6cfc9618b3;hp=38ae6786f6c5715c3ce70ccb65d2bc83673c5383;hpb=57006b2d4eda7c66a263db90d10bcbe859cb1b82;p=packages%2Frpm.git

diff --git a/rpm-find-perl-provides b/rpm-find-perl-provides
index 38ae678..b4f3f41 100644
--- 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"