From: jocuri%softhome.net <>
Date: Tue, 7 Dec 2004 01:03:00 +0000 (+0000)
Subject: Patch for bug 258579: t/Support/Files.pm should use File::Find; patch by Marc Schuman... 
X-Git-Tag: bugzilla-2.19.2~93
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0c57e438f7d8810660eeb5cf3f5c358a14f3b1ee;p=thirdparty%2Fbugzilla.git

Patch for bug 258579: t/Support/Files.pm should use File::Find; patch by Marc Schumann <wurblzap@gmail.com>, r=vladd, a=justdave.
---

diff --git a/t/Support/Files.pm b/t/Support/Files.pm
index de173e83e8..d52380310e 100644
--- a/t/Support/Files.pm
+++ b/t/Support/Files.pm
@@ -23,6 +23,8 @@
 
 package Support::Files;
 
+use File::Find;
+
 # exclude_deps is a hash of arrays listing the files to be excluded
 # if a module is not available
 #
@@ -33,11 +35,8 @@ package Support::Files;
 );
 
 
-# XXX - this file should really be rewritten to use File::Find or similar
-$file = '*';
-@files = (glob($file), glob('Bugzilla/*.pm'), glob('Bugzilla/*/*.pm'),
-          glob('Bugzilla/*/*/*.pm'), glob('Bugzilla/*/*/*/*.pm'),
-          glob('Bugzilla/*/*/*/*/*.pm'));
+@files = glob('*');
+find(sub { push(@files, $File::Find::name) if $_ =~ /\.pm$/;}, 'Bugzilla');
 
 sub have_pkg {
     my ($pkg) = @_;