From 4a5888c8d8d6eeb775b1660b855c59067d24a981 Mon Sep 17 00:00:00 2001
From: Guillaume Rousse <guillomovitch@gmail.com>
Date: Sun, 3 Mar 2019 14:18:57 +0100
Subject: use File::Find insted of external find command

---
 php.req | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/php.req b/php.req
index 2f67093..62001d8 100755
--- a/php.req
+++ b/php.req
@@ -11,6 +11,8 @@
 # - some clean-up...                                                #
 #####################################################################
 
+use File::Find;
+
 $pear = "/usr/share/pear";
 
 @files = ();
@@ -75,7 +77,15 @@ foreach (@ARGV ? $ARGV : <> ) {
 	}
 }
 
-@files = qx(find $ENV{RPM_BUILD_ROOT} -name "*php"|grep -v /usr/share/doc |sed -e 's!$ENV{RPM_BUILD_ROOT}!!');
+my $wanted = sub {
+    return if $File::Find::name !~ /\.php$/;
+    return if $File::Find::name =~ /\/usr\/share\/doc/;
+    $File::Find::name =~ s/$ENV{RPM_BUILD_ROOT}//;
+    push @files, $File::Find::name;
+};
+
+@files = ();
+find($wanted, $ENV{RPM_BUILD_ROOT});
 
 f: for $f (keys %req) {
 	for $g (@files) { next f if ($g =~ /\Q$f\E$/); }
-- 
cgit v1.2.1