host allocation: *_shared_mark_ready: Only prod when $newstate is ready

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

diff --git a/Osstest/Executive.pm b/Osstest/Executive.pm
index f2d434646106a90430973570aa97cbe26ae3c376..4cd4aa505e9c580ba5a2507f7237f4e02a5a3d9e 100644 (file)
--- a/Osstest/Executive.pm
+++ b/Osstest/Executive.pm
@@ -1092,13 +1092,15 @@ END
 END
         }
     });
-    if (!eval {
-       my $qserv = tcpconnect_queuedaemon();
-       print $qserv "prod\n" or die $!;
-       $_ = <$qserv>;  defined && m/^OK prod\b/ or die "$_ ?";
-       1;
-    }) {
-       logm("post-mark-ready queue daemon prod failed: $@");
+    if ($newstate eq 'ready') {
+       if (!eval {
+           my $qserv = tcpconnect_queuedaemon();
+           print $qserv "prod\n" or die $!;
+           $_ = <$qserv>;  defined && m/^OK prod\b/ or die "$_ ?";
+           1;
+       }) {
+           logm("post-mark-ready queue daemon prod failed: $@");
+       }
     }
     if ($oldshr) {
        logm("$restype $resname shared $sharetype marked $newstate");