Revision 931c8a63
Von Sven Schöling vor mehr als 10 Jahren hinzugefügt
| t/test.pl | ||
|---|---|---|
| 14 | 14 |
|
| 15 | 15 |
sub find_files_to_test {
|
| 16 | 16 |
my @files; |
| 17 |
File::Find::find(sub { push @files, $File::Find::name if (-f _) && m/\.t$/ }, 't');
|
|
| 17 |
File::Find::find(sub { push @files, $File::Find::name if (-f $_) && m/\.t$/ }, 't');
|
|
| 18 | 18 |
return @files; |
| 19 | 19 |
} |
| 20 | 20 |
|
Auch abrufbar als: Unified diff
t/test.pl: File::Find macht nur dann lstat wenn follow oder follow_fast als option gesetzt ist