make decode_form_utf8 safe for arrays

2010-01-09 16:07:01 -05:00 · 2010-01-09 16:07:01 -05:00 · 6a0af02d3f
parent 9d673e31e7
commit 6a0af02d3f
1 changed files with 2 additions and 1 deletions
--- a/IkiWiki/CGI.pm
+++ b/IkiWiki/CGI.pm
@ -65,8 +65,9 @@ sub decode_form_utf8 ($) {
 	if ($] >= 5.01) {
 		my $form = shift;
 		foreach my $f ($form->field) {
+			my @value=map { decode_utf8($_) } $form->field($f);
 			$form->field(name  => $f,
-			             value => decode_utf8($form->field($f)),
+			             value => \@value,
 		                     force => 1,
 			);
 		}