[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
	1	#!/bin/sh
	2	ulimit -c 0
	3	cd `rpm --eval %{_builddir}`
	4
	5	filelist=`sed "s/['\"]/\\\&/g"`
	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
	12
	13	echo $filelist\|/usr/lib/rpm/find-provides
	14	provides_perl=`echo $filelist \| xargs /usr/lib/rpm/perl.prov`
	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
	20
	21	echo "$provides_perl"