From 0d95931660329b11057c79c3cf9984e78689a718 Mon Sep 17 00:00:00 2001
From: Valko Laszlo <valko@linux.karinthy.hu>
Date: Sat, 19 May 2018 10:57:01 +0200
Subject: [PATCH] Extended package match logging.

---
 pkgtool.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/pkgtool.pm b/pkgtool.pm
index 59d3e2d..871332b 100644
--- a/pkgtool.pm
+++ b/pkgtool.pm
@@ -1336,8 +1336,11 @@ sub match_package_def ($$$)
 	my $dispver = $$inst{DisplayVersion};
 	$dispver = defined $dispver && $dispver ne '' ? ' ('.$dispver.')' : '';
 
-	print_log('global', DEBUG4, 'Trying to match package %s%s to definition %s',
-		$dispname, $dispver, $$def{description});
+	print_log('global', DEBUG4, 'Trying to match package %s%s%s%s to definition %s',
+		$dispname,
+		defined $$inst{SystemComponent} ? ' SC='.$$inst{SystemComponent} : '',
+		defined $$inst{WindowsInstaller} ? ' WI='.$$inst{WindowsInstaller} : '',
+		$dispver, $$def{description});
 	my $matchlist = $$def{'match'};
 	foreach my $matchentry (@$matchlist) {
 		my $expression = $$matchentry{expression};