spawnpp: die instead of exit on exec failure

Perl may complain about exit not being executed, but not die.

diff --git a/lib/PublicInbox/SpawnPP.pm b/lib/PublicInbox/SpawnPP.pm
index 1a402e4222d0d30f30aae11414ec2a2e939eca06..288625d00a9279305bea4e7de7f69fe8f493fa14 100644 (file)
--- a/lib/PublicInbox/SpawnPP.pm
+++ b/lib/PublicInbox/SpawnPP.pm
@@ -25,7 +25,7 @@ sub public_inbox_fork_exec ($$$$$$) {
                        $ENV{$k} = $v;
                }
                exec @$cmd;
-               exit 1;
+               die "exec $cmd->[0] failed: $!\n";
        }
        $pid;
 }