diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-07-24 13:07:34 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-07-24 13:07:34 -0400 |
commit | d19bbf8f767c1c6565569c5ed419b52f4e000047 (patch) | |
tree | 1944010c2910c0aade26ec084ae7e39789da5492 /t | |
parent | 68a79bb8c26716ae1eab7ce98fd5c5ae700ce334 (diff) | |
download | circular-require-d19bbf8f767c1c6565569c5ed419b52f4e000047.tar.gz circular-require-d19bbf8f767c1c6565569c5ed419b52f4e000047.zip |
only try to hide modules
forkprove breaks otherwise
Diffstat (limited to 't')
-rw-r--r-- | t/hide_middleman3.t | 4 |
1 files changed, 3 insertions, 1 deletions
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; |