X-Git-Url: http://git.pld-linux.org/?a=blobdiff_plain;f=rpm-find-perl-requires;h=8f546de4d054bbcca64fa2fe73eaf4537315991a;hb=541eacd3d55baa952bdd42da29d817eb9afd6190;hp=ae77ac85888c291baf11ca68a35c9ec0a25c2bff;hpb=57006b2d4eda7c66a263db90d10bcbe859cb1b82;p=packages%2Frpm.git

diff --git a/rpm-find-perl-requires b/rpm-find-perl-requires
index ae77ac8..8f546de 100644
--- a/rpm-find-perl-requires
+++ b/rpm-find-perl-requires
@@ -1,11 +1,37 @@
 #!/bin/sh
 ulimit -c 0
+cd `rpm --eval %{_builddir}`
 
 filelist=`sed "s/['\"]/\\\&/g"`
+if [ -f __rpm_noautoreqfiles ] ; then
+	for i in `cat __rpm_noautoreqfiles`; do
+		filelist=`echo $filelist | sed "s![[:space:]]*$i[[:space:]]*!!g"`
+	done
+fi
 
-requires="`echo $filelist|/usr/lib/rpm/find-requires`"
-requires_perl="`/usr/lib/rpm/perl.req $filelist`"
-requires_mod="`rpm -q --whatprovides --qf "%{NAME}\n"  $requires_perl 2>/dev/null`"
+requires="`echo $filelist | /usr/lib/rpm/find-requires`"
+requires_perl="`echo $filelist | xargs /usr/lib/rpm/perl.req`"
+
+eval "`perl -V:installsitearch`"
+if [ -n "`echo $filelist | grep $installsitearch`" ] ; then
+        requires_perlarch="$installsitearch `LC_ALL="C" rpm -q --queryformat '%{NAME} = %{VERSION}' perl| grep -v "is not"`"
+fi
+
+if [ -f __rpm_noautoreq ] ; then
+	for i in `cat __rpm_noautoreq`; do
+		requires_perl=`echo $requires_perl | sed "s!\<$i[[:space:]]*!!g"`
+	done
+fi
+
+requires_perl_t="$requires_perl"
+if [ -f __rpm_noautoreqdep ] ; then
+	for i in `cat __rpm_noautoreqdep`; do
+		requires_perl_t=`echo $requires_perl_t | sed "s!\<$i[[:space:]]*!!g"`
+	done
+fi
+
+requires_mod="`LC_ALL=C rpm -q --whatprovides --qf "%{NAME}\n"  $requires_perl_t 2>/dev/null`"
 echo "$requires
 $requires_perl
-$requires_mod"|  sort -u
+$requires_perlarch
+$requires_mod"| grep -v "no package provides" | sort -u