From: Dagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Date: Thu, 26 Jul 2012 13:36:39 +0000 (+0100)
Subject: Propagate errors from FatNode code
X-Git-Tag: v0.003001_01~136
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=commitdiff_plain;h=1a2d795fd41e8560892ba92d1088f2bc81b01d21

Propagate errors from FatNode code
---

diff --git a/Changes b/Changes
index a2cdc24..ca670e8 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+  - Propagate errors from FatNode code
+
 0.002003 - 2012-07-25
   - Exclude vendorarch and sitearch from FatNode and ModuleSender
   - Increase default timeout to 10 seconds
diff --git a/lib/Object/Remote/Role/Connector/PerlInterpreter.pm b/lib/Object/Remote/Role/Connector/PerlInterpreter.pm
index cfa039a..ccbb74f 100644
--- a/lib/Object/Remote/Role/Connector/PerlInterpreter.pm
+++ b/lib/Object/Remote/Role/Connector/PerlInterpreter.pm
@@ -93,6 +93,7 @@ END
   $text .= "ENDFAT\n";
   $text .= <<'END';
 eval $Object::Remote::FatNode::DATA;
+die $@ if $@;
 END
   $text .= "__END__\n";
   return $text;