- now find-perl-provides is Source3

Changed files:
    find-perl-provides.sh -> 1.1

diff --git a/find-perl-provides.sh b/find-perl-provides.sh
new file mode 100755 (executable)
index 0000000..b3e1263
--- /dev/null
+++ b/find-perl-provides.sh
@@ -0,0 +1,22 @@
+#!/bin/sh
+# $Id$
+ulimit -c 0
+
+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
+provides_perl=`@perl@ @perl_build_dir@/find-perl.prov $filelist`
+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"
+