clean up module hiding in tests

[p5sagit/JSON-MaybeXS.git] / t / none.t

diff --git a/t/none.t b/t/none.t
index 12faf52..12d26fd 100644 (file)
--- a/t/none.t
+++ b/t/none.t
@@ -3,8 +3,8 @@ use warnings;
 
 # hide Cpanel::JSON::XS, JSON::XS, JSON::PP
 use lib map {
-    my ( $m, $c ) = ( $_, qq{die "Can't locate $_ (hidden)\n"} );
-    sub { return unless $_[1] eq $m; open my $fh, "<", \$c; return $fh }
+    my $m = $_;
+    sub { return unless $_[1] eq $m; die "Can't locate $m in \@INC (hidden).\n" };
 } qw{Cpanel/JSON/XS.pm JSON/XS.pm JSON/PP.pm};
 
 use Test::More 0.88;