register unsigned char *s;
register unsigned char *table;
register U32 i;
- register U32 len = SvCUR(sv);
+ STRLEN len;
I32 rarest = 0;
U32 frequency = 256;
+ s = SvPV_force(sv, len);
sv_upgrade(sv, SVt_PVBM);
if (len > 255 || len == 0) /* TAIL might be on on a zero-length string. */
return; /* can't have offsets that big */
void
warner(U32 err, const char* pat,...)
{
+ dTHR;
va_list args;
char *message;
HV *stash;
if (ckDEAD(err)) {
#ifdef USE_THREADS
- DEBUG_L(PerlIO_printf(PerlIO_stderr(), "croak: 0x%lx %s", (unsigned long) thr, message));
+ DEBUG_S(PerlIO_printf(PerlIO_stderr(), "croak: 0x%lx %s", (unsigned long) thr, message));
#endif /* USE_THREADS */
if (PL_diehook) {
/* sv_2cv might call croak() */
retval = n | (*s++ - '0');
len--;
}
- if (len && (*s == '8' || *s == '9') && ckWARN(WARN_OCTAL))
- warner(WARN_OCTAL, "Illegal octal digit ignored");
+ if (len && (*s == '8' || *s == '9')) {
+ dTHR;
+ if (ckWARN(WARN_OCTAL))
+ warner(WARN_OCTAL, "Illegal octal digit ignored");
+ }
*retlen = s - start;
return retval;
}
if (*s == '_')
continue;
else {
+ dTHR;
--s;
if (ckWARN(WARN_UNSAFE))
warner(WARN_UNSAFE,"Illegal hex digit ignored");