[patch] Possible fix

perl-cleaner-2.12-dont_source_functions_sh_from_etc_initd-r1.patch (text/plain), 776 bytes, created by Thomas Deutschmann (RETIRED) on 2014-06-06 21:07:39 UTC

diff -rupN old/perl-cleaner-2.12/perl-cleaner new/perl-cleaner-2.12/perl-cleaner
--- old/perl-cleaner-2.12/perl-cleaner	2012-04-29 09:37:32.000000000 +0200
+++ new/perl-cleaner-2.12/perl-cleaner	2014-06-06 23:05:14.658694311 +0200
@@ -29,10 +29,15 @@ PKGS_MANUAL=""
 
 PKG_DBDIR=/var/db/pkg
 
-. /etc/init.d/functions.sh || {
-    echo "$0: Could not source /etc/init.d/functions.sh!"
-    exit 1
-}
+# Remove /etc/init.d/functions.sh once everything is migrated
+if [ -e /lib/gentoo/functions.sh ]; then
+	. /lib/gentoo/functions.sh
+elif [ -e /etc/init.d/functions.sh ]; then
+	. /etc/init.d/functions.sh
+else
+	echo "$0: Unable to find functions.sh"
+	exit 1
+fi
 
 # First and foremost - make sure we have a perl to work with...
 if ! type -P perl >/dev/null 2>&1 ; then