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

#!/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
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"
Commit	Line	Data
57006b2d AF	1	#!/bin/sh
57006b2d AF	2	ulimit -c 0
edb85bf4	3	cd `rpm --eval %{_builddir}`
57006b2d AF	4
57006b2d AF	5	filelist=`sed "s/['\"]/\\\&/g"`
edb85bf4 JK	6	if [ -f __rpm_noautoprovfiles ] ; then
	7	for i in `cat __rpm_noautoprovfiles`; do
	8	filelist=`echo $filelist \| sed "s![[:space:]]$i[[:space:]]!!g"`
	9	done
	10	fi
	11
57006b2d AF	12
57006b2d AF	13	echo $filelist\|/usr/lib/rpm/find-provides
bed5f4f5	14	provides_perl=`echo $filelist \| xargs /usr/lib/rpm/perl.prov`
edb85bf4 JK	15	if [ -f __rpm_noautoprov ] ; then
	16	for i in `cat __rpm_noautoprov`; do
	17	provides_perl=`echo $provides_perl \| sed "s!\<$i[[:space:]]*!!g"`
	18	done
	19	fi
57006b2d	20
edb85bf4	21	echo "$provides_perl"