From 986531bbeb989ec830b07bd661ffd29ba844e736 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Mon, 8 Sep 2014 17:21:35 +0200
Subject: convert perl-base to internal generator

we also patch rpm's script.req for outputing perl-base instead of
/usr/bin/perl
---
 find-requires.in | 18 ------------------
 1 file changed, 18 deletions(-)

(limited to 'find-requires.in')

diff --git a/find-requires.in b/find-requires.in
index bc69f0c..ab365a5 100755
--- a/find-requires.in
+++ b/find-requires.in
@@ -99,24 +99,6 @@ if [ "$needed" -eq 0 ]; then
   done | xargs -r -n 1 basename | sort -u | grep -v 'libsafe|libfakeroot'
 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
-- 
cgit v1.2.1