perl_580-find_provides.patch

   1 diff -urN perl-5.6.1/find-perl-provides perl-5.6.1-grabba/find-perl-provides
   2 --- perl-5.6.1/find-perl-provides       Thu Jan  1 00:00:00 1970
   3 +++ perl-5.6.1-grabba/find-perl-provides        Sun Mar  3 14:41:39 2002
   4 @@ -0,0 +1,23 @@
   5 +#!/bin/sh
   6 +ulimit -c 0
   7 +
   8 +export LD_LIBRARY_PATH="FPPATH"
   9 +
  10 +filelist=`sed "s/['\"]/\\\&/g"`
  11 +if [ -f __rpm_noautoprovfiles ] ; then
  12 +       for i in `cat __rpm_noautoprovfiles`; do
  13 +               filelist=`echo $filelist | sed "s![[:space:]]*$i[[:space:]]*!!g"`
  14 +       done
  15 +fi
  16 +
  17 +
  18 +echo $filelist|/usr/lib/rpm/find-provides
  19 +provides_perl=`FPPATH/find-perl.prov $filelist`
  20 +if [ -f __rpm_noautoprov ] ; then
  21 +       for i in `cat __rpm_noautoprov`; do
  22 +               provides_perl=`echo $provides_perl | sed "s!\<$i[[:space:]]*!!g"`
  23 +       done
  24 +fi
  25 +
  26 +echo "$provides_perl"
  27 +