summaryrefslogtreecommitdiffstats
path: root/t/Support
diff options
context:
space:
mode:
authorjocuri%softhome.net <>2004-12-07 02:03:00 +0100
committerjocuri%softhome.net <>2004-12-07 02:03:00 +0100
commit0c57e438f7d8810660eeb5cf3f5c358a14f3b1ee (patch)
tree3ad3edcd1c2d6ef1a2eeb0b30db70efebaef4f9e /t/Support
parent12ab11bb8b53e3462f2c93153c1677e807b87d7c (diff)
downloadbugzilla-0c57e438f7d8810660eeb5cf3f5c358a14f3b1ee.tar.gz
bugzilla-0c57e438f7d8810660eeb5cf3f5c358a14f3b1ee.tar.xz
Patch for bug 258579: t/Support/Files.pm should use File::Find; patch by Marc Schumann <wurblzap@gmail.com>, r=vladd, a=justdave.
Diffstat (limited to 't/Support')
-rw-r--r--t/Support/Files.pm9
1 files changed, 4 insertions, 5 deletions
diff --git a/t/Support/Files.pm b/t/Support/Files.pm
index de173e83e..d52380310 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) = @_;