Re: mod_perl2 and utf8

[ikegami]

By the way,

  if (!Encode::is_utf8($str) && $str =~ m/\x80-\xff/) {
    $str = Encode::encode_utf8($str); # Get utf8 byte seq
    Encode::_utf8_on($str);           # and flip the flag
  }
  $r->print($str);

is the same as

  utf8::upgrade($str);
  $r->print($str);

But as previously explained, the correct solution is

  utf8::encode($str);
  $r->print($str);