diff options
| author | Ville Skytt? <ville.skytta@iki.fi> | 2010-11-09 18:36:41 +0200 |
|---|---|---|
| committer | Ville Skytt? <ville.skytta@iki.fi> | 2010-11-09 18:36:41 +0200 |
| commit | 1b3db4048fc297e59a335a22ff334428ff4763a2 (patch) | |
| tree | 6311ce575567a6f2753ac7e952f870c041dc717c | |
| parent | e512f67a3d08dbfa9412b20e852914f6cc4f63b9 (diff) | |
| download | markup-validator-1b3db4048fc297e59a335a22ff334428ff4763a2.zip markup-validator-1b3db4048fc297e59a335a22ff334428ff4763a2.tar.gz markup-validator-1b3db4048fc297e59a335a22ff334428ff4763a2.tar.bz2 | |
Don't lose multivalued parameters while decoding them.
| -rwxr-xr-x | httpd/cgi-bin/check | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/httpd/cgi-bin/check b/httpd/cgi-bin/check index e7c57fd..cdfb939 100755 --- a/httpd/cgi-bin/check +++ b/httpd/cgi-bin/check @@ -2749,8 +2749,8 @@ sub prepCGI next if ($param eq 'uploaded_file' || $param eq 'fragment'); # Decode all other defined values as UTF-8. - my $value = $q->param($param); - $q->param($param, Encode::decode_utf8($value)) if defined($value); + my @values = map { Encode::decode_utf8($_) } $q->param($param); + $q->param($param, @values); next if $param eq 'accept' |