diff options
| author | jocuri%softhome.net <> | 2004-12-07 02:03:00 +0100 |
|---|---|---|
| committer | jocuri%softhome.net <> | 2004-12-07 02:03:00 +0100 |
| commit | 0c57e438f7d8810660eeb5cf3f5c358a14f3b1ee (patch) | |
| tree | 3ad3edcd1c2d6ef1a2eeb0b30db70efebaef4f9e /t/Support | |
| parent | 12ab11bb8b53e3462f2c93153c1677e807b87d7c (diff) | |
| download | bugzilla-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.pm | 9 |
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) = @_; |