From f71cf5357e1a2dc350cbef90c63632f7f26b2f6d Mon Sep 17 00:00:00 2001
From: CoprDistGit <infra@openeuler.org>
Date: Fri, 1 Nov 2024 07:40:04 +0000
Subject: automatic import of openEuler-rpm-config

---
 brp-clean-perl-files | 32 +++++++++++++++++++++++++++-----
 1 file changed, 27 insertions(+), 5 deletions(-)

diff --git a/brp-clean-perl-files b/brp-clean-perl-files
index c34fdb8..ca30d63 100644
--- a/brp-clean-perl-files
+++ b/brp-clean-perl-files
@@ -1,9 +1,31 @@
 #!/bin/sh
 
-for d in $RPM_BUILD_ROOT/usr/{lib,lib64,share}/perl5; do
-	[ -d $d ] || continue
-	find $d -type f -name ".packlist" -delete
-	find $d -type f -name "*.bs" -size 0 -delete
+if [ -z "$RPM_BUILD_ROOT" ]; then
+	printf '%s\n' "No build root defined" >&2
+	exit 1
+fi
+
+if [ ! -d "$RPM_BUILD_ROOT" ]; then
+	printf '%s\n' "Invalid build root" >&2
+	exit 1
+fi
+
+perldirs="$RPM_BUILD_ROOT/usr/lib/perl5 $RPM_BUILD_ROOT/usr/lib64/perl5 $RPM_BUILD_ROOT/usr/share/perl5"
+d=""
+for i in $perldirs; do
+	[ -d "$i" ] || continue
+	d="$d $i"
+done
+[ -z "$d" ] && exit 0
+
+find $d -name ".packlist" -o -name perllocal.pod | xargs rm -f
+
+for i in $(find $d -name "*.bs"); do
+	if [ -s "$i" ]; then
+		printf '%s\n' "non empty .bs file!"
+	else
+		rm -f "$i"
+	fi
 done
 
-perl -MConfig -e 'unlink "$ENV{RPM_BUILD_ROOT}$Config{installarchlib}/perllocal.pod"'
+find $d -depth -type d -exec rmdir {} 2>/dev/null \;
-- 
cgit v1.2.3