diff options
author | Eric Wong <e@80x24.org> | 2018-12-28 06:26:05 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2018-12-29 03:46:12 +0000 |
commit | 1f2ddc7f2bae4a89dd91e1e371b88aab7e7f7ed4 (patch) | |
tree | 9f18e5536b9bfaba6c6e47637bb9318186b3cc9c /t | |
parent | 59c946a014f34cd90621b1fb3b30af99ba80bf61 (diff) | |
download | public-inbox-1f2ddc7f2bae4a89dd91e1e371b88aab7e7f7ed4.tar.gz |
No need to write our own loop when an assignment will do.
Diffstat (limited to 't')
-rw-r--r-- | t/cgi.t | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -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 { |