Select Code to Download

sub path_actually_used {
   if (is_utf8($_[0]) {
...
      return $_[0];
   }
}

my $s = chr(9734);
mkdir($s);           # ok
...
mkdir($s);           # ok
utf8::upgrade($s);
mkdir($s);           # not ok