From 161cbfb85f34e5bd2ab34bb231e1e98fce507a75 Mon Sep 17 00:00:00 2001
From: Valko Laszlo <valko@linux.karinthy.hu>
Date: Sat, 26 May 2018 12:21:05 +0200
Subject: [PATCH] Extract InstallSource package attribute.

---
 pkgtool.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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,