clean perl stuff for perl-5.28 too

2 files changed, 5 insertions, 2 deletions

diff --git a/NEWS b/NEWS
index d98d122..9c15261 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,5 @@
+    * clean perl stuff for perl-5.28 too
+
 2016-03-28 Florian Hubold <doktor5000@mageia.org> 0.31.12
     * check_desktop_files: new macro and helper to validate all .desktop files
 
diff --git a/clean_perl b/clean_perl
index 99d0d46..4adff6b 100755
--- a/clean_perl
+++ b/clean_perl
@@ -1,8 +1,8 @@
 #!/bin/sh
 
-d=$RPM_BUILD_ROOT/usr/lib/perl5
+for d in $RPM_BUILD_ROOT/usr/lib/perl5 $RPM_BUILD_ROOT/usr/share/perl5 /usr/lib64/perl5;do 
 
-[ -d $d ] || exit 0
+[ -d $d ] || continue
 
 find $d -name ".packlist" | xargs rm -f
 
@@ -18,3 +18,4 @@ for i in $(find $d -name "*.bs"); do
 done
 
 find $d -depth -mindepth 2 -type d -empty -exec rmdir {} \;
+done