From dae558789d2864ff8568cf1e2e7117dd6d1452e2 Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Fri, 18 Apr 2014 17:23:56 -0700
Subject: [PATCH] include architecture in package info

---
 software/rpm-lib.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/software/rpm-lib.pl b/software/rpm-lib.pl
index 6b9976f44..87473cf5d 100755
--- a/software/rpm-lib.pl
+++ b/software/rpm-lib.pl
@@ -13,13 +13,14 @@ sub list_packages
 local($i, $list); $i = 0;
 $list = @_ ? join(' ', map { quotemeta($_) } @_) : "-a";
 %packages = ( );
-&open_execute_command(RPM, "rpm -q $list --queryformat \"%{NAME}\\n%{VERSION}-%{RELEASE}\\n%{EPOCH}\\n%{GROUP}\\n%{SUMMARY}\\n\\n\"", 1, 1);
+&open_execute_command(RPM, "rpm -q $list --queryformat \"%{NAME}\\n%{VERSION}-%{RELEASE}\\n%{EPOCH}\\n%{GROUP}\\n%{ARCH}\\n%{SUMMARY}\\n\\n\"", 1, 1);
 while($packages{$i,'name'} = <RPM>) {
 	chop($packages{$i,'name'});
 	chop($packages{$i,'version'} = <RPM>);
 	chop($packages{$i,'epoch'} = <RPM>);
 	$packages{$i,'epoch'} = undef if ($packages{$i,'epoch'} eq '(none)');
 	chop($packages{$i,'class'} = <RPM>);
+	chop($packages{$i,'arch'} = <RPM>);
 	while(<RPM>) {
 		s/\r|\n/ /g;
 		last if (!/\S/);