From 1ca87be51f7bc4e4fcd73b57ec2e68fac4f05053 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 18 Jun 2007 00:31:07 +0100
Subject: [PATCH] fix munge_uri function to handle deleting params correctly

---
 Debbugs/CGI.pm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/Debbugs/CGI.pm b/Debbugs/CGI.pm
index 66637c0..3d1f2c4 100644
--- a/Debbugs/CGI.pm
+++ b/Debbugs/CGI.pm
@@ -139,8 +139,12 @@ sub munge_url {
      my $url = shift;
      my %params = @_;
      my $new_url = Debbugs::URI->new($url);
-     %params = ($new_url->query_form(),%params);
-     $new_url->query_form(%params);
+     my @old_param = $new_url->query_form();
+     my @new_param;
+     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);
      return $new_url->as_string;
 }
 
-- 
2.39.2