Propagate errors from FatNode code

diff --git a/Changes b/Changes
index a2cdc24..ca670e8 100644 (file)
--- 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 (file)
--- 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;