From d19bbf8f767c1c6565569c5ed419b52f4e000047 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Wed, 24 Jul 2013 13:07:34 -0400
Subject: only try to hide modules

forkprove breaks otherwise
---
 t/hide_middleman3.t | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/t/hide_middleman3.t b/t/hide_middleman3.t
index 1f888b3..f297e47 100644
--- a/t/hide_middleman3.t
+++ b/t/hide_middleman3.t
@@ -6,7 +6,9 @@ use Test::More;
 
 no circular::require -hide => [
     qw(base Foo Bar main circular::require),
-    (map { my $m = $_; $m =~ s+/+::+g; $m =~ s/\.pm$//; $m } keys %INC),
+    (grep { /\.pm$/ }
+          map { my $m = $_; $m =~ s+/+::+g; $m =~ s/\.pm$//; $m }
+              keys %INC),
 ];
 
 my @warnings;
-- 
cgit v1.2.3