* soap returns multiple bugs in a single shot

git-svn-id: https://svn.code.sf.net/p/infobot/code/branches/don/dpkg@1849 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/Modules/DebianExtra.pl b/src/Modules/DebianExtra.pl
index e01f85744de6f52de2066a74b63d6a505ace3357..0371711a347bf7856e513ce541b63eefcce19128 100644 (file)
--- a/src/Modules/DebianExtra.pl
+++ b/src/Modules/DebianExtra.pl
@@ -101,6 +101,7 @@ sub do_id($) {
     if (not defined $result) {
        return "No such bug (or some kind of error)";
     }
+    ($result) = values %{$result};
     my $bug = {};
     $bug->{num} = $result->{bug_num};
     $bug->{title} = $result->{subject};