--- a/t/000-syntax.t	Wed Aug 17 09:33:59 2011 +0200
+++ b/t/000-syntax.t	Wed Aug 17 12:10:20 2011 +0200
@@ -6,11 +6,12 @@
 use File::Find;
 
 my @scripts;
-find(sub { /^\./ and return; push @scripts, $File::Find::name if -f and -x }, "blib");
+find(sub { /^\./ and return; 
+    push @scripts, $File::Find::name if -f and (-x or /\.pm$/)}, "blib");
 
 plan tests => scalar @scripts;
 
 foreach (@scripts) {
-	my $e = `perl -c $_ 2>&1`;
-	ok(!$?, "syntax ok") or diag $e;
+	my $e = `perl -Mblib -c $_ 2>&1`;
+	ok(!$?, "syntax $_ ok") or diag $e;
 }