perl: use POSIX operations on 'find(1)'

1 files changed, 8 insertions, 7 deletions

diff --git a/extra/perl/build b/extra/perl/build
index a81dc976..75b09a56 100755
--- a/extra/perl/build
+++ b/extra/perl/build
@@ -31,13 +31,14 @@ make
 make DESTDIR="$1" install
 
 # Remove all unneeded files.
-find "$1" -name \*.pod       -delete
-find "$1" -name .packlist    -delete
-find "$1" -name README\*     -delete
-find "$1" -name TODO\*       -delete
-find "$1" -name Change\*     -delete
-find "$1" -name \*.bs        -delete
-find "$1" -name \*.0 -type f -delete
+find "$1" \( \
+    -name '*.pod'   -o \
+    -name .packlist -o \
+    -name README\*  -o \
+    -name TODO\*    -o \
+    -name Change\*  -o \
+    -name \*.bs     -o \
+    -name \*.0 \) -type f -exec rm -f -- {} +
 
 # Fix permissions.
 find "$1/usr/lib" -type f -exec chmod 644 {} \;