catch nack startup errors

leedo · Dec 27, 2012 · 29e4c5a · 29e4c5a
1 parent e1c17c7
commit 29e4c5a
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/lib/Plack/App/Prack/Worker.pm b/lib/Plack/App/Prack/Worker.pm
@@ -5,6 +5,7 @@ use warnings;
 
 use Time::HiRes;
 use File::Temp ':POSIX';
+use JSON;
 use IO::Socket::UNIX;
 use Plack::App::Prack::Request;
 
@@ -42,6 +43,12 @@ sub spawn {
     # read the pid
     my $p = $sock->getline;
 
+    # could be a stack trace
+    if ($p !~ /^\d+$/) {
+      my $stack = decode_json $p;
+      die "$stack->{name}: $stack->{message}";
+    }
+
     $self->{sock} = $sock;
     $self->{file} = $tmp;
   }