[Pkg-libvirt-commits] [SCM] Libguestfs Debian packaging branch, master, updated. debian/1.0.84-3-8-g3b14f9c

[Guido Günther]

The following commit has been merged in the master branch:
commit 1b7efb472b2c694ece7ac361429b83d1d39b2e82
Author: Guido Günther <agx at sigxcpu.org>
Date:   Wed Feb 24 09:10:46 2010 +0100

    New patch 0008-Add-application-listing-for-Debian.patch
    
    Add application listing for Debian

diff --git a/debian/patches/0008-Add-application-listing-for-Debian.patch b/debian/patches/0008-Add-application-listing-for-Debian.patch
new file mode 100644
index 0000000..81ea293
--- /dev/null
+++ b/debian/patches/0008-Add-application-listing-for-Debian.patch
@@ -0,0 +1,37 @@
+From: =?UTF-8?q?Guido=20G=C3=BCnther?= <agx at sigxcpu.org>
+Date: Tue, 23 Feb 2010 21:05:02 +0100
+Subject: [PATCH] Add application listing for Debian
+
+---
+ perl/lib/Sys/Guestfs/Lib.pm |   17 +++++++++++++++++
+ 1 files changed, 17 insertions(+), 0 deletions(-)
+
+diff --git a/perl/lib/Sys/Guestfs/Lib.pm b/perl/lib/Sys/Guestfs/Lib.pm
+index c7b5e7e..e8796ad 100644
+--- a/perl/lib/Sys/Guestfs/Lib.pm
++++ b/perl/lib/Sys/Guestfs/Lib.pm
+@@ -1453,6 +1453,23 @@ sub _check_for_applications
+                     push @apps, $app
+                 }
+             }
++        } elsif (defined $package_format && $package_format eq "deb") {
++            my @lines = $g->command_lines
++                (["dpkg-query",
++                  "-f", '${Package} ${Version} ${Architecture} ${Status}\n',
++                  "-W"]);
++            foreach (@lines) {
++                if (m/^(.*) (.*) (.*) (.*) (.*) (.*)$/) {
++                    if ( $6 eq "installed" ) {
++                        my $app = {
++                            name => $1,
++                            version => $2,
++                            arch => $3
++                        };
++                        push @apps, $app
++                    }
++                }
++            }
+         }
+     } elsif ($osn eq "windows") {
+         # XXX
+-- 

-- 
Libguestfs Debian packaging