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>

diff --git a/ts-hosts-allocate-Executive b/ts-hosts-allocate-Executive
index 7c328472feb7bddef98be802f4c8b9f4af48e7ef..9d8fbfdf45904e522e9f0aff119540f8703e0fac 100755 (executable)
--- 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";
+                              });
 }