--- a/t/000-syntax.t	Sun Aug 07 11:07:27 2011 +0200
+++ b/t/000-syntax.t	Sun Aug 07 11:07:35 2011 +0200
@@ -7,7 +7,7 @@
 
 my @files;
 find(sub {
-    -f -x and ~/^\./ or return;
+    -f -x and !/^\./ or return;
     push @files, $File::Find::name;
 }, "blib");