10/04/16 10:08:30
oh…やっちまった……テストはちゃんと書きましょうってことだな…
untilを↓に差し替えで無限ループは回避できるはず。>>207がまだ見てることを祈る…
for (my $i = 0; length "$uri" > $maxlen and $i < 20; $i++) { # ループ20回で強制的に抜ける
$path =~ s,\A(/(?:$repl_q/)?[^/]+),/$repl, or last;
last if $path eq $1; # マッチするが置換しても内容が変わらない場合抜ける
$uri->path($path);
}