diff options
author | Andy Lester <andy@petdance.com> | 2006-01-06 03:57:19 -0600 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-01-06 16:58:14 +0000 |
commit | a4fc7abc9c5502fa20253f620ede1e956c44caed (patch) | |
tree | 3bb2f1a057d5e3483cc90405fd50bd22f50894ef /doop.c | |
parent | 97aff369fa5580e7a888d4fa4c86be74ab000409 (diff) | |
download | perl-a4fc7abc9c5502fa20253f620ede1e956c44caed.tar.gz |
hv_fetchs() support
Message-ID: <20060106155719.GB9035@petdance.com>
p4raw-id: //depot/perl@26676
Diffstat (limited to 'doop.c')
-rw-r--r-- | doop.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -313,7 +313,7 @@ S_do_trans_simple_utf8(pTHX_ SV *sv) SV* const rv = (SV*)cSVOP->op_sv; HV* const hv = (HV*)SvRV(rv); - SV* const * svp = hv_fetch(hv, "NONE", 4, FALSE); + SV* const * svp = hv_fetchs(hv, "NONE", FALSE); const UV none = svp ? SvUV(*svp) : 0x7fffffff; const UV extra = none + 1; UV final = 0; @@ -337,7 +337,7 @@ S_do_trans_simple_utf8(pTHX_ SV *sv) send = s + len; start = s; - svp = hv_fetch(hv, "FINAL", 5, FALSE); + svp = hv_fetchs(hv, "FINAL", FALSE); if (svp) final = SvUV(*svp); @@ -411,7 +411,7 @@ S_do_trans_count_utf8(pTHX_ SV *sv) SV* const rv = (SV*)cSVOP->op_sv; HV* const hv = (HV*)SvRV(rv); - SV* const * const svp = hv_fetch(hv, "NONE", 4, FALSE); + SV* const * const svp = hv_fetchs(hv, "NONE", FALSE); const UV none = svp ? SvUV(*svp) : 0x7fffffff; const UV extra = none + 1; U8 hibit = 0; @@ -455,7 +455,7 @@ S_do_trans_complex_utf8(pTHX_ SV *sv) const I32 grows = PL_op->op_private & OPpTRANS_GROWS; SV * const rv = (SV*)cSVOP->op_sv; HV * const hv = (HV*)SvRV(rv); - SV * const *svp = hv_fetch(hv, "NONE", 4, FALSE); + SV * const *svp = hv_fetchs(hv, "NONE", FALSE); const UV none = svp ? SvUV(*svp) : 0x7fffffff; const UV extra = none + 1; UV final = 0; @@ -481,7 +481,7 @@ S_do_trans_complex_utf8(pTHX_ SV *sv) send = s + len; start = s; - svp = hv_fetch(hv, "FINAL", 5, FALSE); + svp = hv_fetchs(hv, "FINAL", FALSE); if (svp) { final = SvUV(*svp); havefinal = TRUE; |