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

No change other than to debugging output.

Signed-off-by: Ian Jackson <Ian.Jackson@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