convert perl-base to internal generator

we also patch rpm's script.req for outputing perl-base instead of
/usr/bin/perl

1 files changed, 0 insertions, 18 deletions

diff --git a/find-requires.in b/find-requires.in
index bc69f0c..ab365a5 100755
--- a/find-requires.in
+++ b/find-requires.in
@@ -100,24 +100,6 @@ if [ "$needed" -eq 0 ]; then
 fi
 
 #
-# --- Perl or python deps
-perlepoch=`rpm -q --qf '%|EPOCH?{[%{EPOCH}]:}|' perl-base`
-if [ $? != 0 ]; then
-	unset perlepoch
-fi
-
-tmpdeplist=
-for f in $filelist; do
-    dep="`echo $f | sed -n -e "s@.*/usr/lib/perl5/\(vendor_perl/\|site_perl/\|\)\([.0-9]\{1,\}\).*\\$@perl-base >= $perlepoch\2@p"`"
-    if [[ -n $dep && -z `echo $uniqdeplist $tmpdeplist|grep "$dep"` ]]; then
-	tmpdeplist+="$dep\n"
-    fi
-done
-echo -n -e $tmpdeplist | sort -u
-uniqdeplist+="$tmpdeplist"
-
-
-#
 # --- Script interpreters.
 for f in $scriptlist; do
     [ -r $f -a -x $f ] || continue