On Wed, 21 Feb 2024 13:29:30 -0800
Andrew Hewus Fresh <andrew@afresh1.com> wrote:

> # Clean up any now empty directories
> cd gnu/usr.bin/perl && find -d . \
>     \( -type d -o -path '*/CVS' -prune \) \
>     ! -name CVS \
>     -exec test -e {}/CVS \; \
>     -execdir sh -c 'test $( ls -1 {} | grep -v '^CVS/$' | wc -l ) -eq 0' \; \
>     -exec rm -r {} \;

After I did "cd gnu/usr.bin/perl", I used a shorter find command,

find -d . -type d ! -name CVS \
    -execdir sh -c 'test "$(ls -A -- "$0")" = CVS' {} \; \
    -exec rm -r -- {} \;