fix for EU:MM 6.55_02 failing test,
authorDavid Mitchell <davem@iabyn.com>
Wed, 5 Aug 2009 20:40:55 +0000 (21:40 +0100)
committerDavid Mitchell <davem@iabyn.com>
Wed, 5 Aug 2009 20:43:18 +0000 (21:43 +0100)
as suggested by Schwern

(cherry picked from commit 3ed7368117d18c1af3bc089adf0d9fcdf5c04cd4)

lib/ExtUtils/t/00compile.t

index cadfe55..20f7ded 100644 (file)
@@ -21,8 +21,8 @@ chdir "..";
 my $manifest = "MANIFEST";
 open(my $manifest_fh, "<", $manifest) or die "Can't open $manifest: $!";
 my @modules = map { m{^lib/(\S+)}; $1 } 
-              grep { m{^lib/\S+\.pm} } 
-              <$manifest_fh>;
+              grep { m{^lib/ExtUtils/\S*\.pm} } 
+              grep { !m{/t/} } <$manifest_fh>;
 chomp @modules;
 close $manifest_fh;