--- /Library/Perl/5.8.6/HTML/FillInForm.pm 2005-10-14 05:49:09.000000000 +0900 +++ lib/HTML/FillInForm.pm 2006-01-06 15:45:37.000000000 +0900 @@ -83,6 +83,7 @@ if(my $file = $option{file}){ $self->parse_file($file); } elsif (my $scalarref = $option{scalarref}){ + $self->utf8_mode(1); $self->parse($$scalarref); } elsif (my $arrayref = $option{arrayref}){ for (@$arrayref){
とかしちゃった。その場しのぎ。