From a300752a04e284e6a14cdd9780da414f181aca74 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian.jackson@eu.citrix.com>
Date: Tue, 4 Oct 2016 17:23:23 +0000
Subject: [PATCH] host allocation: Pass a debug function in
 find_recent_duration

We provide only a commented-out debug print.  This produces more
copius output than is desirable even to a compressed debug log.

No functional change.

Signed-off-by: Ian Jackson <ian.jackson@eu.citrix.com>
---
 ts-hosts-allocate-Executive | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/ts-hosts-allocate-Executive b/ts-hosts-allocate-Executive
index 7c328472..9d8fbfdf 100755
--- a/ts-hosts-allocate-Executive
+++ b/ts-hosts-allocate-Executive
@@ -487,7 +487,10 @@ sub find_recent_duration ($$) {
     ($candrow->{Duration},
      $candrow->{MostRecentStarted},
      $candrow->{MostRecentStatus}) =
-        $duration_estimator->($job, $hid->{Ident}, $candrow->{resname});
+        $duration_estimator->($job, $hid->{Ident}, $candrow->{resname},
+                              sub {
+#                                  print DEBUG "$dbg DUR-EST @_\n";
+                              });
 }
 
 
-- 
2.39.5