2 files changed, 3 insertions, 1 deletions
diff --git a/NEWS b/NEWS
index 09b5cbd..fdeffa4 100644
--- a/NEWS
+++ b/NEWS
@@ -1,5 +1,7 @@
     * clean_perl: use -empty instead of silencing failing directory deletion
       attempts
+    * clean_perl: don't try to remove empty directories directly under
+      /usr/lib/perl5 (e.g. /usr/lib/perl5/vendor_perl of perl itself)
 
 2012-03-05 D Morgan <dmorgan@mageia.org> 0.31.6
     * prevent waiting for non existing files if files contains space or dash
diff --git a/clean_perl b/clean_perl
index 11b0417..99d0d46 100755
--- a/clean_perl
+++ b/clean_perl
@@ -17,4 +17,4 @@ for i in $(find $d -name "*.bs"); do
     fi
 done
 
-find $d -depth -type d -empty -exec rmdir {} \;
+find $d -depth -mindepth 2 -type d -empty -exec rmdir {} \;