X-Git-Url: http://git.shiar.net/perl/plp/.git/blobdiff_plain/6fb22c399428a8e7cac088cab5603e75a87016fa..ef6d542255046b6f50d7047d8e5a1d85b9f01042:/PLP/Fields.pm

diff --git a/PLP/Fields.pm b/PLP/Fields.pm
index 9945511..a14f038 100644
--- a/PLP/Fields.pm
+++ b/PLP/Fields.pm
@@ -17,7 +17,7 @@ sub doit {
 	my %get;
 	if ($ENV{QUERY_STRING} ne ''){
 	    for (split /[&;]/, $ENV{QUERY_STRING}) {
-		my @keyval = split /=/;
+		my @keyval = split /=/, $_, 2;
 		PLP::Functions::DecodeURI(@keyval);
 		$get{$keyval[0]} = $keyval[1] unless $keyval[0] =~ /^\@/;
 		push @{ $get{'@' . $keyval[0]} }, $keyval[1];
@@ -31,8 +31,8 @@ sub doit {
 	our $post = <STDIN>;
 	if (defined($post) && $post ne '' &&
 	    ($ENV{CONTENT_TYPE} eq '' || $ENV{CONTENT_TYPE} eq 'application/x-www-form-urlencoded')){
-	    for (split /[&;]/, $post) {
-		my @keyval = split /=/;
+	    for (split /&/, $post) {
+		my @keyval = split /=/, $_, 2;
 		PLP::Functions::DecodeURI(@keyval);
 		$post{$keyval[0]} = $keyval[1] unless $keyval[0] =~ /^\@/;
 		push @{ $post{'@' . $keyval[0]} }, $keyval[1];
@@ -50,7 +50,7 @@ sub doit {
 
     if (defined($ENV{HTTP_COOKIE}) && $ENV{HTTP_COOKIE} ne ''){
 	for (split /; ?/, $ENV{HTTP_COOKIE}) {
-	    my @keyval = split /=/;
+	    my @keyval = split /=/, $_, 2;
 	    $PLP::Script::cookie{$keyval[0]} ||= $keyval[1];
 	}
     }