rpm-find-perl-requires

   1 #!/bin/sh
   2 ulimit -c 0
   3 cd `rpm --eval %{_builddir}`
   4
   5 filelist=`sed "s/['\"]/\\\&/g"`
   6 if [ -f __rpm_noautoreqfiles ] ; then
   7         for i in `cat __rpm_noautoreqfiles`; do
   8                 filelist=`echo $filelist | sed "s![[:space:]]*$i[[:space:]]*!!g"`
   9         done
  10 fi
  11
  12 requires="`echo $filelist|/usr/lib/rpm/find-requires`"
  13 requires_perl="`/usr/lib/rpm/perl.req $filelist`"
  14 if [ -f __rpm_noautoreq ] ; then
  15         for i in `cat __rpm_noautoreq`; do
  16                 requires_perl=`echo $requires_perl | sed "s!\<$i[[:space:]]*!!g"`
  17         done
  18 fi
  19
  20 require_perl_t="$requires_perl"
  21 if [ -f __rpm_noautoreqdep ] ; then
  22         for i in `cat __rpm_noautoreqdep`; do
  23                 requires_perl_t=`echo $requires_perl_t | sed "s!\<$i[[:space:]]*!!g"`
  24         done
  25 fi
  26
  27 requires_mod="`LC_ALL=C rpm -q --whatprovides --qf "%{NAME}\n"  $requires_perl_t 2>/dev/null`"
  28 echo "$requires
  29 $requires_perl
  30 $requires_mod"| grep -v "no package provides" | sort -u