--- /usr/sbin/perl-cleaner	2019-05-17 15:51:50.196317961 +0200
+++ /usr/local/sbin/perl-cleaner	2019-05-17 19:48:24.741960292 +0200
@@ -210,9 +210,6 @@
     if ${MODULES} ; then
         veinfo 1 "Locating packages for an update"
     fi
-    if ${LIBPERL} ; then
-        veinfo 1 "Locating ebuilds linked against libperl"
-    fi
 
     local scanelf=scanelf
     [[ -e ""/usr/lib/libperl.dylib ]] \
@@ -223,8 +220,11 @@
             ewarn "--libperl is disbled."
             LIBPERL=false
         else
-            SONAME="$(${scanelf} -qBS "$(realpath ""/usr/lib/libperl.{so,dylib} 2>/dev/null )" | awk '{ print $1 }')"
+            SONAME="$(${scanelf} -qBS $(sed -n -e'/\/libperl\./s!obj \(.*\) \(.*\) \(.*\)$!\1!p' ${PKG_DBDIR}/dev-lang/perl-5.*/CONTENTS ) | awk '{ print $1 }')"
             veinfo 4 SONAME="${SONAME}"
+            if ${LIBPERL} ; then
+               veinfo 1 "Locating ebuilds linked against libperl  -- new lib: ${SONAME} "
+            fi
         fi
     fi