kfg/winupd
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Fixed missing UninstallString from variables.

Browse source
This commit is contained in:
László Valkó 2018-05-12 15:37:02 +02:00
parent 91c7116c09
commit 3c8539e8b6
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
pkgtool.pm
View file

@ -1890,8 +1890,18 @@ sub remove_packages ($$$$$$$$$$$$)
$db, $def, $name, $dispname, $basedir, $genericmsiparams, $config, $counters, $removecontext); $db, $def, $name, $dispname, $basedir, $genericmsiparams, $config, $counters, $removecontext);
} }
else { else {
$error = remove_package_fallback($channel, $vars, $paramlist, $inst, $condition, $dispname, my $uninst = $$inst{Uninstall};
my $quninst = $$inst{QUninstall};
$quninst = $uninst unless defined $quninst;
my $set = 0;
if (defined $quninst && ! defined $$vars{uninstallstring}) {
$$vars{uninstallstring} = $quninst;
$set =1;
}
$error = remove_package_fallback($channel, $vars, $paramlist, $inst, $condition, $dispname,
$ver, $printver, $db, $counters, $removecontext); $ver, $printver, $db, $counters, $removecontext);
delete $$vars{uninstallstring} if $set;
} }
return $error if defined $error; return $error if defined $error;
} }