spawn: improve error checking for fork failures

[public-inbox.git] / script / public-inbox-mda

diff --git a/script/public-inbox-mda b/script/public-inbox-mda
index 145aa7106b958a20083eeba9b74678497b06bd71..013642d0bb86ebd6c587a3fda352b6f913a1e772 100755 (executable)
--- a/script/public-inbox-mda
+++ b/script/public-inbox-mda
@@ -97,6 +97,7 @@ sub do_spamc {
        my ($in, $out) = @_;
        my $rdr = { 0 => fileno($in) };
        my ($fh, $pid) = popen_rd([qw/spamc -E --headers/], undef, $rdr);
+       defined $pid or die "failed to popen_rd spamc: $!\n";
        my $r;
        do {
                $r = sysread($fh, $$out, 65536, length($$out));