clean up module hiding in tests

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

diff --git a/t/legacy.t b/t/legacy.t
index 1df4790..0fe9e40 100644 (file)
--- a/t/legacy.t
+++ b/t/legacy.t
@@ -3,8 +3,8 @@ use warnings;
 
 # hide Cpanel::JSON::XS
 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};
 
 use Test::More 0.88;