Extended package match logging.

This commit is contained in:
László Valkó 2018-05-19 10:57:01 +02:00
parent 3c8539e8b6
commit 0d95931660

View file

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