diff options
| author | Justin Davis <jrcd83@gmail.com> | 2012-06-01 18:46:36 +0200 |
|---|---|---|
| committer | Justin Davis <jrcd83@gmail.com> | 2012-06-01 18:46:36 +0200 |
| commit | e7b3c47073606a1055e3cead72a3230b4b0f44a9 (patch) | |
| tree | d307aa8657d71020dc1434074581387e6b6a8c09 | |
| parent | 685819858e57f387871a69c9429b3e85d5d28dd5 (diff) | |
| download | genpkg-e7b3c47073606a1055e3cead72a3230b4b0f44a9.tar.gz genpkg-e7b3c47073606a1055e3cead72a3230b4b0f44a9.tar.xz | |
Avoid searching in test modules.
| -rwxr-xr-x | misc/perlcore | 1 |
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); |