Package member key is the fully-qualified name; fix error in get

[debbugs.git] / Debbugs / CGI.pm

diff --git a/Debbugs/CGI.pm b/Debbugs/CGI.pm
index b5c24ddbc648e7db0d133d1b1ecd83c4b7543eeb..a80397f4ed18524069cbd3c3137e79f964a9d41e 100644 (file)
--- a/Debbugs/CGI.pm
+++ b/Debbugs/CGI.pm
@@ -394,10 +394,11 @@ sub package_links {
             }
             if ($has_options) {
                 push @links,
-                    munge_url('pkgreport.cgi?',
+                    (munge_url('pkgreport.cgi?',
                               %options,
                               $t_type => $target,
-                             );
+                              ),
+                     $target);
             } else {
                 push @links,
                     ('pkgreport.cgi?'.$t_type.'='.uri_escape_utf8($target),
@@ -502,7 +503,8 @@ sub bug_links {
                            $_);
                       } make_list($param{bug}) if exists $param{bug};
      } else {
-        push @links, map {'bugreport.cgi?bug='.uri_escape_utf8($_)}
+        push @links, map {('bugreport.cgi?bug='.uri_escape_utf8($_),
+                           $_)}
             make_list($param{bug}) if exists $param{bug};
      }
      my @return;