diff options
Diffstat (limited to 't/hide_middleman3.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; |