From 613f15de70e1a8c0cb9b039d6a86eec75725a39f Mon Sep 17 00:00:00 2001
From: Tomas Valla <tom@ucw.cz>
Date: Thu, 10 Jul 2003 18:12:57 +0000
Subject: [PATCH] Just to make it more comfortable.

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

diff --git a/lib/perl/CGI.pm b/lib/perl/CGI.pm
index 9bd19bd3..a6b5302e 100644
--- a/lib/perl/CGI.pm
+++ b/lib/perl/CGI.pm
@@ -38,6 +38,8 @@ sub html_escape($) {
 
 our $arg_table;
 
+our $value_separator = "&";
+
 sub parse_arg_string($) {
 	my ($s) = @_;
 	$s =~ s/\s+//;
@@ -56,7 +58,7 @@ sub parse_arg_string($) {
 		if (${$arg->{'var'}} eq $arg->{'default'}) {
 			${$arg->{'var'}} = $_;
 		} else {
-			${$arg->{'var'}} .= "&".$_;
+			${$arg->{'var'}} .= $value_separator.$_;
 		}
 	}
 }
-- 
2.39.2