spawnpp: use env(1) for mod_perl compatibility

We cannot modify %ENV directly under mod_perl (even after forking!),
so use env(1) instead to pass the environment.

1 files changed, 2 insertions, 7 deletions

diff --git a/lib/PublicInbox/SpawnPP.pm b/lib/PublicInbox/SpawnPP.pm
index 288625d0..dc2ef364 100644
--- a/lib/PublicInbox/SpawnPP.pm
+++ b/lib/PublicInbox/SpawnPP.pm
@@ -19,13 +19,8 @@ sub public_inbox_fork_exec ($$$$$$) {
                 if ($err != 2) {
                         dup2($err, 2) or die "dup2 failed for stderr: $!";
                 }
-                %ENV = ();
-                foreach my $e (@$env) {
-                        my ($k, $v) = split('=', $e, 2);
-                        $ENV{$k} = $v;
-                }
-                exec @$cmd;
-                die "exec $cmd->[0] failed: $!\n";
+                exec qw(env -i), @$env, @$cmd;
+                die "exec env -i ... $cmd->[0] failed: $!\n";
         }
         $pid;
 }