t/cgi.t | 3 +--

diff --git a/t/cgi.t b/t/cgi.t
index 2e2476d78bf24f8a0fe01bed27258a30cf876285..d92749b3d98ec52053dab204134207ff210c4c6c 100644
--- a/t/cgi.t
+++ b/t/cgi.t
@@ -217,8 +217,7 @@ done_testing();
 
 sub run_with_env {
 	my ($env, @args) = @_;
-	my $init = sub { foreach my $k (keys %$env) { $ENV{$k} = $env->{$k} } };
-	IPC::Run::run(@args, init => $init);
+	IPC::Run::run(@args, init => sub { %ENV = (%ENV, %$env) });
 }
 
 sub cgi_run {