X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=perl%2Flib%2FSys%2FGuestfs%2FLib.pm;h=98cdb88358c344fe0804ff767ec060dbd9595157;hp=e8796ad320af5330449d4c23aa3d048d516c0fe0;hb=dcfa05f703ca0c281c12a14450d06dfb4ac7893d;hpb=aca024e9766268e6a09a8aeedee562d10910ca6d;ds=sidebyside

diff --git a/perl/lib/Sys/Guestfs/Lib.pm b/perl/lib/Sys/Guestfs/Lib.pm
index e8796ad..98cdb88 100644
--- a/perl/lib/Sys/Guestfs/Lib.pm
+++ b/perl/lib/Sys/Guestfs/Lib.pm
@@ -1439,6 +1439,7 @@ sub _check_for_applications
                 (["rpm",
                   "-q", "-a",
                   "--qf", "%{name} %{epoch} %{version} %{release} %{arch}\n"]);
+            @lines = sort @lines;
             foreach (@lines) {
                 if (m/^(.*) (.*) (.*) (.*) (.*)$/) {
                     my $epoch = $2;
@@ -1458,6 +1459,7 @@ sub _check_for_applications
                 (["dpkg-query",
                   "-f", '${Package} ${Version} ${Architecture} ${Status}\n',
                   "-W"]);
+            @lines = sort @lines;
             foreach (@lines) {
                 if (m/^(.*) (.*) (.*) (.*) (.*) (.*)$/) {
                     if ( $6 eq "installed" ) {