#endif
STATIC I32
-do_trans_CC_simple(pTHX_ SV *sv)
+S_do_trans_CC_simple(pTHX_ SV *sv)
{
dTHR;
U8 *s;
tbl = (short*)cPVOP->op_pv;
if (!tbl)
- croak("panic: do_trans");
+ Perl_croak(aTHX_ "panic: do_trans");
s = (U8*)SvPV(sv, len);
send = s + len;
}
STATIC I32
-do_trans_CC_count(pTHX_ SV *sv)
+S_do_trans_CC_count(pTHX_ SV *sv)
{
dTHR;
U8 *s;
tbl = (short*)cPVOP->op_pv;
if (!tbl)
- croak("panic: do_trans");
+ Perl_croak(aTHX_ "panic: do_trans");
s = (U8*)SvPV(sv, len);
send = s + len;
}
STATIC I32
-do_trans_CC_complex(pTHX_ SV *sv)
+S_do_trans_CC_complex(pTHX_ SV *sv)
{
dTHR;
U8 *s;
tbl = (short*)cPVOP->op_pv;
if (!tbl)
- croak("panic: do_trans");
+ Perl_croak(aTHX_ "panic: do_trans");
s = (U8*)SvPV(sv, len);
send = s + len;
}
STATIC I32
-do_trans_UU_simple(pTHX_ SV *sv)
+S_do_trans_UU_simple(pTHX_ SV *sv)
{
dTHR;
U8 *s;
}
STATIC I32
-do_trans_UU_count(pTHX_ SV *sv)
+S_do_trans_UU_count(pTHX_ SV *sv)
{
dTHR;
U8 *s;
}
STATIC I32
-do_trans_UC_simple(pTHX_ SV *sv)
+S_do_trans_UC_simple(pTHX_ SV *sv)
{
dTHR;
U8 *s;
}
STATIC I32
-do_trans_CU_simple(pTHX_ SV *sv)
+S_do_trans_CU_simple(pTHX_ SV *sv)
{
dTHR;
U8 *s;
/* utf-8 to latin-1 */
STATIC I32
-do_trans_UC_trivial(pTHX_ SV *sv)
+S_do_trans_UC_trivial(pTHX_ SV *sv)
{
dTHR;
U8 *s;
/* latin-1 to utf-8 */
STATIC I32
-do_trans_CU_trivial(pTHX_ SV *sv)
+S_do_trans_CU_trivial(pTHX_ SV *sv)
{
dTHR;
U8 *s;
}
STATIC I32
-do_trans_UU_complex(pTHX_ SV *sv)
+S_do_trans_UU_complex(pTHX_ SV *sv)
{
dTHR;
U8 *s;
STRLEN len;
if (SvREADONLY(sv) && !(PL_op->op_private & OPpTRANS_IDENTICAL))
- croak(PL_no_modify);
+ Perl_croak(aTHX_ PL_no_modify);
(void)SvPV(sv, len);
if (!len)
(void)SvPV_force(sv, len);
(void)SvPOK_only(sv);
- DEBUG_t( deb("2.TBL\n"));
+ DEBUG_t( Perl_deb(aTHX_ "2.TBL\n"));
switch (PL_op->op_private & 63) {
case 0:
s[offset+3] = lval & 255;
}
}
+ SvSETMAGIC(targ);
}
void
return;
}
else if (SvREADONLY(sv))
- croak(PL_no_modify);
+ Perl_croak(aTHX_ PL_no_modify);
s = SvPV(sv, len);
if (len && !SvPOK(sv))
s = SvPV_force(sv, len);
s = send - 1;
while ((*s & 0xc0) == 0x80)
--s;
- if (UTF8SKIP(s) != send - s)
- warn("Malformed UTF-8 character");
+ if (UTF8SKIP(s) != send - s && ckWARN_d(WARN_UTF8))
+ Perl_warner(aTHX_ WARN_UTF8, "Malformed UTF-8 character");
sv_setpvn(astr, s, send - s);
*s = '\0';
SvCUR_set(sv, s - start);
return count;
}
else if (SvREADONLY(sv))
- croak(PL_no_modify);
+ Perl_croak(aTHX_ PL_no_modify);
s = SvPV(sv, len);
if (len && !SvPOKp(sv))
s = SvPV_force(sv, len);
}
OP *
-Perl_do_kv(pTHX_ ARGSproto)
+Perl_do_kv(pTHX)
{
djSP;
HV *hv = (HV*)POPs;
PUTBACK;
tmpstr = realhv ?
hv_iterval(hv,entry) : avhv_iterval((AV*)hv,entry);
- DEBUG_H(sv_setpvf(tmpstr, "%lu%%%d=%lu",
+ DEBUG_H(Perl_sv_setpvf(aTHX_ tmpstr, "%lu%%%d=%lu",
(unsigned long)HeHASH(entry),
HvMAX(keys)+1,
(unsigned long)(HeHASH(entry) & HvMAX(keys))));