X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/964cc586548d39408468696e96c4aa0be1c547d3..931c8a6320097b9c0f6e7e098d2533b3a70d15db:/t/test.pl

diff --git a/t/test.pl b/t/test.pl
index d20f01da0..da10840a5 100755
--- 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;
 }