Executive: sharing safety catch dumps more info

diff --git a/Osstest/JobDB/Executive.pm b/Osstest/JobDB/Executive.pm
index d2b1694eee63565935047d2d2c8999ee7dca877d..a06eb6398c40f7eb7281f494f5637ba792e94d63 100644 (file)
--- a/Osstest/JobDB/Executive.pm
+++ b/Osstest/JobDB/Executive.pm
@@ -23,6 +23,7 @@ use warnings;
 use Osstest;
 use Osstest::TestSupport;
 use Osstest::Executive;
+use Data::Dumper;
 
 BEGIN {
     use Exporter ();
@@ -133,7 +134,7 @@ sub host_check_allocated ($$) { #method
     $ho->{SharedOthers}=
         $ho->{Shared} ? $ho->{Shared}{Others} : 0;
     
-    die if $ho->{SharedOthers} && !$ho->{SharedReady};
+    die Dumper($ho)." ?" if $ho->{SharedOthers} && !$ho->{SharedReady};
 }
 
 sub jobdb_postfork ($) { #method