char *s = rx->subbeg + s1;
char *send = rx->subbeg + t1;
- i = t1 - s1;
if (is_utf8_string((U8*)s, i))
i = Perl_utf8_length(aTHX_ (U8*)s, (U8*)send);
}
flags |= 16;
if (!PL_psig_ptr[sig]) {
- Perl_warn(aTHX_ "Signal SIG%s received, but no signal handler set.\n",
+ PerlIO_printf(Perl_error_log, "Signal SIG%s received, but no signal handler set.\n",
PL_sig_name[sig]);
exit(sig);
}