pod2html で日本語使うとリンクのアンカーが"_"になって困る

困る。困ってたけど、誰かが解決してくれてた。

これ素敵。

ついでなので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 にマッチしてしまうので"_" に置換されてる。