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
---
 perl_base.req | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 perl_base.req

(limited to 'perl_base.req')

diff --git a/perl_base.req b/perl_base.req
new file mode 100644
index 0000000..eb95024
--- /dev/null
+++ b/perl_base.req
@@ -0,0 +1,18 @@
+#!/bin/sh
+# Requires on perl-base
+
+perlepoch=`rpm -q --qf '%|EPOCH?{[%{EPOCH}]:}|' perl-base`
+if [ $? != 0 ]; then
+       unset perlepoch
+fi
+
+tmpdeplist=
+
+while read instfile ; do
+    dep="`echo $instfile | 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
-- 
cgit v1.2.1