X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FModules%2FDebianExtra.pl;h=e9e7d43589dc92044cc53f19ba22fb0aacb06b74;hb=33a0437c96c9f55affe67ca7f6ef32ad9224d49a;hp=abc7259cbfa97fcc4157c4dd19229b6082913d3a;hpb=2848e1614199f774738c6caac313a349ea0aea87;p=infobot.git

diff --git a/src/Modules/DebianExtra.pl b/src/Modules/DebianExtra.pl
index abc7259..e9e7d43 100644
--- a/src/Modules/DebianExtra.pl
+++ b/src/Modules/DebianExtra.pl
@@ -89,7 +89,14 @@ sub do_id($) {
     my $soap = SOAP::Lite->uri('Debbugs/SOAP/1')->
 	proxy('http://bugs.debian.org/cgi-bin/soap.cgi');
     $soap->transport->env_proxy();
-    my $result = $soap->get_status(bug => $bug_num)->result();
+    my $temp = $soap->get_status(bug => $bug_num);
+    use Data::Dumper;
+    &::DEBUG(Dumper($temp));
+    if ($temp->fault) {
+	return "Some failure (".$temp->fault->{faultstring}.")";
+    }
+    my $result = $temp->result();
+    &::DEBUG(Dumper($result));
     if (not defined $result) {
 	return "No such bug (or some kind of error)";
     }
@@ -103,7 +110,7 @@ sub do_id($) {
     $bug->{reporter} = $result->{submitter};
     $bug->{date} = $result->{date};
     $bug->{tags} = $result->{keywords};
-    $bug->{done} = defined $result->{done} and length $result->{done};
+    $bug->{done} = defined $result->{done} && length($result->{done}) > 0;
     $bug->{merged_with} = $result->{mergedwith};
     # report bug