plan_search: Improve debugging of $share_compat_ok->()

No change other than to debugging output.

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

diff --git a/Osstest/Executive.pm b/Osstest/Executive.pm
index e4bb0868f1b5c0fdb77a327b605faacf8ded0046..dfa3710a96065639c944c868d2c3e142aa6856e3 100644 (file)
--- 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;
            };