From c03b86e8afdff46e7a21a5317afecbb5866b655a Mon Sep 17 00:00:00 2001
From: "Andreas K. Hüttel" <dilfridge@gentoo.org>
Date: Mon, 17 May 2021 23:26:29 +0200
Subject: perl-functions.eclass: Add perl-fix_permissions
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Bug: https://bugs.gentoo.org/554346
Signed-off-by: Andreas K. Hüttel <dilfridge@gentoo.org>
---
 eclass/perl-functions.eclass | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'eclass')

diff --git a/eclass/perl-functions.eclass b/eclass/perl-functions.eclass
index e6168a075345..8633f384f1bf 100644
--- a/eclass/perl-functions.eclass
+++ b/eclass/perl-functions.eclass
@@ -127,6 +127,16 @@ perl_delete_emptybsdir() {
 	fi
 }
 
+# @FUNCTION: perl_fix_permissions
+# @DESCRIPTION:
+# Make all of ${D} user-writable, since EU::MM does silly things with
+# the w bit. See bug 554346.
+perl_fix_permissions() {
+	debug-print-function $FUNCNAME "$@"
+	perl_set_version
+	fperms -R u+w "${D}"
+}
+
 # @FUNCTION: perl_fix_packlist
 # @DESCRIPTION:
 # Look through ${D} for .packlist text files containing the temporary installation
-- 
cgit v1.2.3-65-gdbad