From: Tomas Valla <tom@ucw.cz>
Date: Thu, 10 Jul 2003 18:12:57 +0000 (+0000)
Subject: Just to make it more comfortable.
X-Git-Tag: holmes-import~1219
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=613f15de70e1a8c0cb9b039d6a86eec75725a39f;p=libucw.git

Just to make it more comfortable.
---

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.$_;
 		}
 	}
 }