Fix up clean_perl

Author: berolinux

Makefile

@@ -1,5 +1,5 @@
 NAME = spec-helper
-VERSION = 0.31.45
+VERSION = 0.31.46
 SVNPATH = git@github.com:OpenMandrivaSoftware/spec-helper.git
 
 SCRIPT_FILES =  clean_files clean_perl check_elf_files \

NEWS

@@ -1,3 +1,6 @@
+2018-03-29 Bernhard Rosenkraenzer <bero@lindev.ch> 0.31.46
+	* Make clean_perl actually do something useful
+
 2018-03-29 Bernhard Rosenkraenzer <bero@lindev.ch> 0.31.45
 	* Add gprintify fix for newer perl versions from Mageia
 

clean_perl

@@ -10,18 +10,19 @@ if [ ! -d "$RPM_BUILD_ROOT" ]; then
     exit 1
 fi
 
-d="$RPM_BUILD_ROOT/usr/lib/perl5"
-
-[ -d $d ] || exit 0
-
-find $d -name ".packlist" | xargs rm -f
+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
 
-# remove file alike /usr/lib/perl5/5.8.*/i386-linux-thread-multi/perllocal.pod
-perl -MConfig -e 'unlink "$ENV{RPM_BUILD_ROOT}$Config{installarchlib}/perllocal.pod"'
+find $d -name ".packlist" -o -name perllocal.pod | xargs rm -f
 
 for i in $(find $d -name "*.bs"); do
     if [ -s $i ]; then
-	echo "non empty .bs file, please mail rgarciasuarez@mandriva.com about this!"
+	echo "non empty .bs file!"
     else
 	rm -f $i
     fi