#!/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