1 files changed, 10 insertions, 7 deletions
diff --git a/php.req b/php.req
index 5f2f79d..62001d8 100755
--- a/php.req
+++ b/php.req
@@ -11,6 +11,8 @@
 # - some clean-up...                                                #
 #####################################################################
 
+use File::Find;
+
 $pear = "/usr/share/pear";
 
 @files = ();
@@ -75,14 +77,15 @@ foreach (@ARGV ? $ARGV : <> ) {
 	}
 }
 
-sub cat_ { my @l = map { my $F; open($F, '<', $_) ? <$F> : () } @_; wantarray() ? @l : join '', @l }
+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;
+};
 
-my $cache = "$ENV{RPM_BUILD_ROOT}.php.req.file.cache";
-if (-f $cache) {
-	@files = cat_($cache);
-} else {
-	qx(find $ENV{RPM_BUILD_ROOT} -name "*php"|grep -v /usr/share/doc |sed -e 's!$ENV{RPM_BUILD_ROOT}!!' > $cache);
-}
+@files = ();
+find($wanted, $ENV{RPM_BUILD_ROOT});
 
 f: for $f (keys %req) {
 	for $g (@files) { next f if ($g =~ /\Q$f\E$/); }