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="`echo $filelist | xargs /usr/lib/rpm/perl.req`"
  14
  15 eval "`perl -V:installsitearch`"
  16 if [ -n "`echo $filelist | grep $installsitearch`" ] ; then
  17         requires_perlarch="$installsitearch `LC_ALL="C" rpm -q --queryformat '%{NAME} = %{VERSION}' perl| grep -v "is not"`"
  18 fi
  19
  20 if [ -f __rpm_noautoreq ] ; then
  21         for i in `cat __rpm_noautoreq`; do
  22                 requires_perl=`echo $requires_perl | sed "s!\<$i[[:space:]]*!!g"`
  23         done
  24 fi
  25
  26 requires_perl_t="$requires_perl"
  27 if [ -f __rpm_noautoreqdep ] ; then
  28         for i in `cat __rpm_noautoreqdep`; do
  29                 requires_perl_t=`echo $requires_perl_t | sed "s!\<$i[[:space:]]*!!g"`
  30         done
  31 fi
  32
  33 requires_mod="`LC_ALL=C rpm -q --whatprovides --qf "%{NAME}\n"  $requires_perl_t 2>/dev/null`"
  34 echo "$requires
  35 $requires_perl
  36 $requires_perlarch
  37 $requires_mod"| grep -v "no package provides" | sort -u