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

#!/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"
Commit	Line	Data
e8fe569f	1	#!/bin/sh
	2	# $Id$
	3	ulimit -c 0
	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=`@perl@ @perl_build_dir@/find-perl.prov $filelist`
	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"
	22