treewide: avoid "delete local" construct on hashes

[public-inbox.git] / lib / PublicInbox / Spawn.pm

diff --git a/lib/PublicInbox/Spawn.pm b/lib/PublicInbox/Spawn.pm
index 00e6829e9483918c92bccefef153c1477c084b2f..fe7aa0a8b5f6fce9a0326cced1efb2a41f84ce6b 100644 (file)
--- a/lib/PublicInbox/Spawn.pm
+++ b/lib/PublicInbox/Spawn.pm
@@ -358,10 +358,9 @@ sub spawn ($;$$) {
        my $f = which($cmd->[0]) // die "$cmd->[0]: command not found\n";
        my @env;
        $opts ||= {};
-
-       my %env = $env ? (%ENV, %$env) : %ENV;
+       my %env = (%ENV, $env ? %$env : ());
        while (my ($k, $v) = each %env) {
-               push @env, "$k=$v";
+               push @env, "$k=$v" if defined($v);
        }
        my $redir = [];
        for my $child_fd (0..2) {