X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FWeb%2FSimple%2FParamParser.pm;h=e1827d13111fc6a0ae6326d1156cf2980d2e0462;hb=a5917caa09171b2db73a60a458368f22ecbbeeeb;hp=ad14ab556ef41239966c29bc643caccaa8d922ce;hpb=9b9866ae3d62893fcba1b7c585a2d7358175d0c2;p=catagits%2FWeb-Simple.git diff --git a/lib/Web/Simple/ParamParser.pm b/lib/Web/Simple/ParamParser.pm index ad14ab5..e1827d1 100644 --- a/lib/Web/Simple/ParamParser.pm +++ b/lib/Web/Simple/ParamParser.pm @@ -25,8 +25,9 @@ sub get_unpacked_query_from { sub _unpack_params { my %unpack; + (my $params = $_[0]) =~ s/\+/ /g; my ($name, $value); - foreach my $pair (split(/[&;](?:\s+)?/, $_[0])) { + foreach my $pair (split(/[&;](?:\s+)?/, $params)) { next unless (($name, $value) = split(/=/, $pair, 2)) == 2; s/$DECODE/$hex_chr{$1}/gs for ($name, $value);