summaryrefslogtreecommitdiffstats
path: root/misc/perlcore
diff options
context:
space:
mode:
authorJustin Davis <jrcd83@gmail.com>2012-06-01 18:46:36 +0200
committerJustin Davis <jrcd83@gmail.com>2012-06-01 18:46:36 +0200
commite7b3c47073606a1055e3cead72a3230b4b0f44a9 (patch)
treed307aa8657d71020dc1434074581387e6b6a8c09 /misc/perlcore
parent685819858e57f387871a69c9429b3e85d5d28dd5 (diff)
downloadgenpkg-e7b3c47073606a1055e3cead72a3230b4b0f44a9.tar.gz
genpkg-e7b3c47073606a1055e3cead72a3230b4b0f44a9.tar.xz
Avoid searching in test modules.
Diffstat (limited to 'misc/perlcore')
-rwxr-xr-xmisc/perlcore1
1 files changed, 1 insertions, 0 deletions
diff --git a/misc/perlcore b/misc/perlcore
index 633bf43..b9c1b80 100755
--- a/misc/perlcore
+++ b/misc/perlcore
@@ -160,6 +160,7 @@ sub findmods
my @modfiles;
my $finder = sub {
return unless(/[.]pm\z/);
+ return if m{\Q$libdir\E[^/]+/t/}; # ignore testing modules
push @modfiles, $_;
};
findfile({ 'no_chdir' => 1, 'wanted' => $finder }, $libdir);