clean_perl: use -empty instead of silencing failing directory deletion attempts

2 files changed, 4 insertions, 1 deletions

diff --git a/NEWS b/NEWS
index 1728a9f..09b5cbd 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,6 @@
+    * clean_perl: use -empty instead of silencing failing directory deletion
+      attempts
+
 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 eca5b63..11b0417 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 -exec rmdir {} 2>/dev/null \;
+find $d -depth -type d -empty -exec rmdir {} \;