[OSSTEST PATCH 31/82] plan_search: Improve debugging of $share_compat_ok->()

[Ian Jackson]

From: Ian Jackson <ian.jack...@eu.citrix.com>

No change other than to debugging output.

Signed-off-by: Ian Jackson <ian.jack...@eu.citrix.com>
---
 Osstest/Executive.pm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/Osstest/Executive.pm b/Osstest/Executive.pm
index e4bb0868..dfa3710a 100644
--- a/Osstest/Executive.pm
+++ b/Osstest/Executive.pm
@@ -702,6 +702,12 @@ sub plan_search ($$$$) {
 
            my $share_compat_ok = sub {
                my ($eshare) = @_;
+               $dbgprint->("PLAN LOOP   SHARE-COMPAT-OK ".
+                   "type $eshare->{Type} vs. ".
+                       ($req->{Shared} // '<undef>')." ".
+                   "wear $eshare->{Wear} ".
+                   "shares $eshare->{Shares} vs. ".
+                       ($req->{SharedMaxTasks}//'<undef>'));
                return 0 unless defined $req->{Shared};
                return 0 unless $req->{Shared} eq $eshare->{Type};
                if (defined $share_wear) {
@@ -711,6 +717,7 @@ sub plan_search ($$$$) {
                }
                return 0 if $share_wear > $req->{SharedMaxWear};
                return 0 if $eshare->{Shares} != $req->{SharedMaxTasks};
+               $dbgprint->("PLAN LOOP   SHARE-COMPAT-OK Y");
                return 1;
            };
 
-- 
2.20.1