diff --git a/pkgtool.pm b/pkgtool.pm index 82d19ae..16893d3 100644 --- a/pkgtool.pm +++ b/pkgtool.pm @@ -767,6 +767,7 @@ sub read_packages ($$$$) my $dispver = get_registry_value($sub->{'DisplayVersion'}); my $instdate = get_registry_value($sub->{'InstallDate'}); my $instloc = get_registry_value($sub->{'InstallLocation'}); + my $instsrc = get_registry_value($sub->{'InstallSource'}); my $syscomp = get_registry_value($sub->{'SystemComponent'}); my $parentkeyname = get_registry_value($sub->{'ParentKeyName'}); my $wininst = get_registry_value($sub->{'WindowsInstaller'}); @@ -787,7 +788,8 @@ sub read_packages ($$$$) DisplayName => $dispname, DisplayVersion =>$dispver, InstallDate => $instdate, - InstallLocation => $instloc, + InstallLocation => $instloc, + InstallSource => $instsrc, SystemComponent => $syscomp, WindowsInstaller => $wininst, ReleaseType => $reltype,