avoid reassigning to temp upon decode_utf8

[infobot.git] / src / Modules / DebianExtra.pl

diff --git a/src/Modules/DebianExtra.pl b/src/Modules/DebianExtra.pl
index e9e7d43589dc92044cc53f19ba22fb0aacb06b74..98668e6ac7f16ee075b4663492dcc0772bbc7f77 100644 (file)
--- a/src/Modules/DebianExtra.pl
+++ b/src/Modules/DebianExtra.pl
@@ -89,9 +89,10 @@ 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 $temp = $soap->get_status(bug => $bug_num);
+    my $temp = $soap->get_status($bug_num);
     use Data::Dumper;
-    &::DEBUG(Dumper($temp));
+    # enabling this will cause amazing amounts of output
+    # &::DEBUG(Dumper($temp));
     if ($temp->fault) {
        return "Some failure (".$temp->fault->{faultstring}.")";
     }
@@ -100,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};
@@ -108,7 +110,8 @@ sub do_id($) {
     $bug->{severity} =~ s/^(.).+$/$1/;
     $bug->{package} = $result->{package};
     $bug->{reporter} = $result->{submitter};
-    $bug->{date} = $result->{date};
+    use POSIX;
+    $bug->{date} = POSIX::strftime(q(%a, %d %b %Y %H:%M:%S UTC),gmtime($result->{date}));
     $bug->{tags} = $result->{keywords};
     $bug->{done} = defined $result->{done} && length($result->{done}) > 0;
     $bug->{merged_with} = $result->{mergedwith};