困る。困ってたけど、誰かが解決してくれてた。
これ素敵。
ついでなのでpod2html のソースみてみた。pod2htmlの中身はuse Pod::Html して pod2html @ARGV してるだけなので、perldoc -m Pod::Html を見る。
あわせてのgit のsource を見てると、Pod::Html::anchorify を書き換えていたのでPod::Html::anchorify を見てみた。
sub anchorify { my ($anchor) = @_; $anchor = htmlify($anchor); $anchor =~ s/\W/_/g; return $anchor; }
ここだなー。マルチバイトが\W にマッチしてしまうので"_" に置換されてる。