[OSSTEST PATCH 29/82] host allocation: *_shared_mark_ready: Only prod when $newstate is ready

[Ian Jackson <iwj@xxxxxxxxxxxxxx>]

From: Ian Jackson <ian.jackson@xxxxxxxxxxxxx>

Signed-off-by: Ian Jackson <Ian.Jackson@xxxxxxxxxxxxx>
---
 Osstest/Executive.pm | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/Osstest/Executive.pm b/Osstest/Executive.pm
index f2d43464..4cd4aa50 100644
--- 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");
-- 
2.20.1