From 911dabf14ae24f49f4a2e055aa29c667a6b129a5 Mon Sep 17 00:00:00 2001
From: Tomas Valla <tom@ucw.cz>
Date: Wed, 9 Jul 2003 01:29:16 +0000
Subject: [PATCH] Patch to allow processing of multiple occurences of the same
 argument. Now it returns a string of values separated by "&".

---
 lib/perl/CGI.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lib/perl/CGI.pm b/lib/perl/CGI.pm
index 024a1451..9bd19bd3 100644
--- a/lib/perl/CGI.pm
+++ b/lib/perl/CGI.pm
@@ -53,7 +53,11 @@ sub parse_arg_string($) {
 		if (my $rx = $arg->{'check'}) {
 			if (!/^$rx$/) { $_ = $arg->{'default'}; }
 		}
-		${$arg->{'var'}} = $_;
+		if (${$arg->{'var'}} eq $arg->{'default'}) {
+			${$arg->{'var'}} = $_;
+		} else {
+			${$arg->{'var'}} .= "&".$_;
+		}
 	}
 }
 
-- 
2.39.2