we don't necessarily need to deparse the email address for pkg links

[debbugs.git] / Debbugs / CGI.pm

diff --git a/Debbugs/CGI.pm b/Debbugs/CGI.pm
index b5c24ddbc648e7db0d133d1b1ecd83c4b7543eeb..7cc7f4166481335a7d9a6c6fda95b0f2fe694602 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),
@@ -408,8 +409,6 @@ sub package_links {
      for my $type (qw(maint owner submitter correspondent)) {
         next unless exists $param{$type};
         for my $target (make_list($param{$type})) {
-            my $addr = getparsedaddrs($target);
-            $addr = defined $addr?$addr->address:'';
             if ($has_options) {
                 push @links,
                     (munge_url('pkgreport.cgi?',
@@ -502,7 +501,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;