<commit_before>static MP_INLINE void mpxs_ModPerl__Util_untaint(pTHX_ I32 items,
                                                 SV **MARK, SV **SP)
{
    while (MARK <= SP) {
        SvTAINTED_off(*MARK++);
    }
}

#define mpxs_ModPerl__Util_exit(status) modperl_perl_exit(aTHX_ status)
<commit_msg>unfold SvTAINTED_off macro; no point in looping through args without -T switch on<commit_after>static MP_INLINE void mpxs_ModPerl__Util_untaint(pTHX_ I32 items,
                                                 SV **MARK, SV **SP)
{
    if (!PL_tainting) {
        return;
    }
    while (MARK <= SP) {
        sv_untaint(*MARK++);
    }
}

#define mpxs_ModPerl__Util_exit(status) modperl_perl_exit(aTHX_ status)

{'fraction_non_alphanumeric': 0.0951048951048951, 'fraction_numerical': 0.005594405594405594, 'mean_word_length': 2.3615023474178405, 'pattern_counts': {'":': 0, '<': 5, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 4, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '5754498', 'n_tokens_mistral': 251, 'n_tokens_neox': 244, 'n_words': 51}