find-perl-provides.sh

   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