t/test.pl: File::Find macht nur dann lstat wenn follow oder follow_fast als option...
authorSven Schöling <s.schoeling@linet-services.de>
Tue, 27 May 2014 14:20:49 +0000 (16:20 +0200)
committerSven Schöling <s.schoeling@linet-services.de>
Tue, 27 May 2014 14:20:49 +0000 (16:20 +0200)
t/test.pl

index d20f01d..da10840 100755 (executable)
--- a/t/test.pl
+++ b/t/test.pl
@@ -14,7 +14,7 @@ BEGIN {
 
 sub find_files_to_test {
   my @files;
-  File::Find::find(sub { push @files, $File::Find::name if (-f _) && m/\.t$/ }, 't');
+  File::Find::find(sub { push @files, $File::Find::name if (-f $_) && m/\.t$/ }, 't');
   return @files;
 }