1 files changed, 8 insertions, 1 deletions
diff --git a/lib/PublicInbox/Spawn.pm b/lib/PublicInbox/Spawn.pm
index cb16fcf6..5e2495d2 100644
--- a/lib/PublicInbox/Spawn.pm
+++ b/lib/PublicInbox/Spawn.pm
@@ -19,7 +19,7 @@ use strict;
  use parent qw(Exporter);
  use Symbol qw(gensym);
  use PublicInbox::ProcessPipe;
-our @EXPORT_OK = qw/which spawn popen_rd nodatacow_dir/;
+our @EXPORT_OK = qw(which spawn popen_rd run_die nodatacow_dir);
  our @RLIMITS = qw(RLIMIT_CPU RLIMIT_CORE RLIMIT_DATA);
  
  my $vfork_spawn = <<'VFORK_SPAWN';
@@ -306,4 +306,11 @@ sub popen_rd {
          $ret;
  }
  
+sub run_die ($;$$) {
+        my ($cmd, $env, $rdr) = @_;
+        my $pid = spawn($cmd, $env, $rdr);
+        waitpid($pid, 0) == $pid or die "@$cmd did not finish";
+        $? == 0 or die "@$cmd failed: \$?=$?\n";
+}
+
  1;