Just to make it more comfortable.

diff --git a/lib/perl/CGI.pm b/lib/perl/CGI.pm
index 9bd19bd34da0d1bc308464074d94b89f1544b38a..a6b5302effe290ae3c88374e20f74a73fcb5f96f 100644 (file)
--- 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.$_;
                }
        }
 }