From e7b3c47073606a1055e3cead72a3230b4b0f44a9 Mon Sep 17 00:00:00 2001
From: Justin Davis <jrcd83@gmail.com>
Date: Fri, 1 Jun 2012 12:46:36 -0400
Subject: Avoid searching in test modules.

---
 misc/perlcore | 1 +
 1 file changed, 1 insertion(+)

(limited to 'misc')

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);
-- 
cgit v1.2.3-24-g4f1b