sub decode($$;$) {
my ( $name, $octets, $check ) = @_;
return undef unless defined $octets;
return $octets if Encode::is_utf8($octets); # add this check
$octets .= '';
sub decode($$;$) {
my ( $name, $octets, $check ) = @_;
return undef unless defined $octets;
return $octets if Encode::is_utf8($octets); # add this check
$octets .= '';