my $oldwarn = $SIG{__WARN__};
        local $SIG{__WARN__} = sub {
            my ($msg) = @_;
            if ($msg =~ /utf8_heavy/)
            {
                # do nothing
            }
            elsif ($oldwarn)
            {
                goto &$oldwarn if $oldwarn;
            }
            else
            {
                warn @_;
            }
        };