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;