Make munge_url use repeatable sorting

diff --git a/Debbugs/CGI.pm b/Debbugs/CGI.pm
index d51b9be0a469c5503f4e3648964c36bb2bb31e27..3632f3f869b585665a896a108b88cab25f4fa8b3 100644 (file)
--- a/Debbugs/CGI.pm
+++ b/Debbugs/CGI.pm
@@ -161,7 +161,9 @@ sub munge_url {
      while (my ($key,$value) = splice @old_param,0,2) {
          push @new_param,($key,$value) unless exists $params{$key};
      }
-     $new_url->query_form(@new_param,%params);
+     $new_url->query_form(@new_param,
+                         map {($_,$params{$_})}
+                         sort keys %params);
      return $new_url->as_string;
 }