diff --git a/t/01-B-PerlReq.t b/t/01-B-PerlReq.t
index 3973cad..6c4be31 100644
--- a/t/01-B-PerlReq.t
+++ b/t/01-B-PerlReq.t
@@ -7,6 +7,7 @@ use Fcntl qw(F_SETFD);
 
 sub spawn ($) {
 	my $code = shift;
+  local $ENV{PERL5OPT};
 	open my $pipe, "-|", $^X, qw(-Mblib -MO=PerlReq -e) => $code
 		or return (undef, undef);
 	my $output = join '' => <$pipe>;
diff --git a/t/02-perlreq.t b/t/02-perlreq.t
index 26c6aa0..412d416 100644
--- a/t/02-perlreq.t
+++ b/t/02-perlreq.t
@@ -6,6 +6,7 @@ use Fcntl qw(F_SETFD);
 sub spawn ($) {
 	my $file = shift;
 	use 5.007_001; # the list form of open() for pipes
+  local $ENV{PERL5OPT};
 	open my $pipe, "-|", $^X, qw(-Mblib perl.req) => $file
 		or return (undef, undef);
 	my $output = join '' => <$pipe>;