--- perl-cleaner-2.12/perl-cleaner
+++ perl-cleaner-2.12/perl-cleaner
@@ -29,8 +29,9 @@
 
 PKG_DBDIR=/var/db/pkg
 
-. /etc/init.d/functions.sh || {
-    echo "$0: Could not source /etc/init.d/functions.sh!"
+functions_script="/lib/gentoo/functions.sh"
+. ${functions_script} || {
+    echo "$0: Could not source ${functions_script}!"
     exit 1
 }