ts-hosts-allocate-Executive print sharing info in debug output

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>

diff --git a/ts-hosts-allocate-Executive b/ts-hosts-allocate-Executive
index 58e9f89120f6cf1431a3078d64c8e1df5014550b..fc107c08e25c1350858e5eab29306be997fbab2b 100755 (executable)
--- a/ts-hosts-allocate-Executive
+++ b/ts-hosts-allocate-Executive
@@ -691,7 +691,9 @@ sub hid_recurse ($$) {
     print DEBUG "$dbg FINAL start=$start_time va=$variation_age".
        " variation_bonus=$variation_bonus".
         " previously_failed=$previously_failed".
-       " previously_failed_equiv=$previously_failed_equiv cost=$cost\n";
+       " previously_failed_equiv=$previously_failed_equiv".
+       " eff.share_bonus=$share_reuse*$share_reuse_bonus".
+       " cost=$cost\n";
 
     if (!defined $best || $cost < $best->{Cost}) {
         print DEBUG "$dbg FINAL BEST: ".