host allocation: eliminate an undefined print

diff --git a/ts-hosts-allocate-Executive b/ts-hosts-allocate-Executive
index 77d8a8c7715f7b6955fb9e5f14864acbf2522b40..0d434c96b734cbbd294999ff5445e095b21fda4e 100755 (executable)
--- a/ts-hosts-allocate-Executive
+++ b/ts-hosts-allocate-Executive
@@ -447,7 +447,9 @@ sub hid_recurse ($$) {
        $duration= $cand->{Duration} if
            !defined($duration) ||
            defined($cand->{Duration}) && $cand->{Duration} >= $duration;
-        $previously_failed++ if $cand->{MostRecentStatus} eq 'fail';
+        $previously_failed++ if
+           defined $cand->{MostRecentStatus} &&
+           $cand->{MostRecentStatus} eq 'fail';
     }
     my $duration_rightaway_adjust= 0;