From 89bd3f4826f91647216765534eacfb37267a27a3 Mon Sep 17 00:00:00 2001
From: Eric Wong <e@80x24.org>
Date: Sun, 28 Feb 2016 23:39:12 +0000
Subject: spawnpp: die instead of exit on exec failure

Perl may complain about exit not being executed, but not die.
---
 lib/PublicInbox/SpawnPP.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/PublicInbox/SpawnPP.pm b/lib/PublicInbox/SpawnPP.pm
index 1a402e42..288625d0 100644
--- 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;
 }
-- 
cgit v1.2.3-24-ge0c7