unknownplace.org

データどこにもってるかわかんなくて、くらうだーのひとやいなもでのひとにいろいろ聞いてたらなんとなくわかった。

アクセサの中で参照してるから参照カウンタが 0 にならなくて $data はずっとのこるということらしい（？）。クロージャというらしい。

個人的にはキモイので嫌かも。

つかでもやっぱり Perl の本ちゃんとよまなきゃだめかなぁ。買うかなぁ。

--- /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){

とかしちゃった。その場しのぎ。

HTML::FillInForm 使うたびに

Parsing of undecoded UTF-8 will give garbage when decoding entities at /Library/Perl/5.8.6/HTML/FillInForm.pm line 86.

とかってのが input エレメントの数だけ出てうぜええ。

出社。

新年早々寝坊とは！

退社。

Catalyst::Plugin::LocaleUtils とかって名前で、I18N プラグインと連携させた DateTime のいろいろ作ったりしてて、実装まとまんなくて相談したいけど現状ここに書くか、もしくはいきなり英語領域突入という状況でわりとめんどくさかったり、なんか日本人のCatalystコミュニティがない気がするので IRC wide系列に #catalyst-ja とか作ってみた。

ので、よかったらいらしてください。