From 23cffed736e80bd3028e03e7ad2cbf53af5f1f61 Mon Sep 17 00:00:00 2001 From: Anssi Hannula Date: Fri, 16 Mar 2012 17:24:20 +0000 Subject: clean_perl: don't try to remove empty dirs directly under /usr/lib/perl5 E.g. /usr/lib/perl5/vendor_perl of perl package itself is affected. --- NEWS | 2 ++ clean_perl | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) 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 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 {} \; -- cgit v1.2.1