/* range begins (ignore - as first or last char) */
else if (*s == '-' && s+1 < send && s != start) {
if (didrange) {
- croak("Ambiguous range in transliteration operator");
+ Perl_croak(aTHX_ "Ambiguous range in transliteration operator");
}
if (utf) {
*d++ = (char)0xff; /* use illegal utf8 byte--see pmtrans */
default:
{
dTHR;
- if (ckWARN(WARN_MISC) && isALNUM(*s) && *s != '_')
+ if (ckWARN(WARN_MISC) && isALNUM(*s))
Perl_warner(aTHX_ WARN_MISC,
"Unrecognized escape \\%c passed through",
*s);