From: Eric Wong <e@80x24.org>
Date: Fri, 28 Dec 2018 06:26:05 +0000 (+0000)
Subject: t/cgi.t: shorten %ENV setting
X-Git-Tag: v1.2.0~450
X-Git-Url: http://www.git.stargrave.org/?a=commitdiff_plain;h=1f2ddc7f2bae4a89dd91e1e371b88aab7e7f7ed4;p=public-inbox.git

t/cgi.t: shorten %ENV setting

No need to write our own loop when an assignment will do.
---

diff --git a/t/cgi.t b/t/cgi.t
index 2e2476d7..d92749b3 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 {