520-        );
521-        $utf8 =~ s/\s*$//;
522-        lc $utf8 eq lc q{""\u30bd""}
523:            or warn "Transport still not UTF-8 safe: [$utf8]";
524-    };
525-    
526-    my $rn = $options{repl}->repl;