Revision 9b220b88
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
t/Support/Files.pm | ||
---|---|---|
39 | 39 |
|
40 | 40 |
@files = glob('*'); |
41 | 41 |
find(sub { push(@files, $File::Find::name) if $_ =~ /\.pm$/;}, 'SL'); |
42 |
find(sub { push(@files, $File::Find::name) if $_ =~ /\.pl$/;}, 'bin/mozilla');
|
|
42 |
find(sub { push(@files, $File::Find::name) if $_ =~ /\.pl$/;}, qw(bin/mozilla sql/Pg-upgrade2));
|
|
43 | 43 |
|
44 | 44 |
sub have_pkg { |
45 | 45 |
my ($pkg) = @_; |
Auch abrufbar als: Unified diff
Modifikatioen an den Tests.