diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2010-11-20 18:27:55 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-11-20 21:04:19 -0800 |
| commit | 27a1175bf36db67955ca3363f80694803bdcbfb2 (patch) | |
| tree | 6275c8db1ef30759c06bc6238488393a34ccdeb6 /hv.c | |
| parent | dbbe2d83c45bfa50b7f118650730dbd85df84150 (diff) | |
| download | perl-27a1175bf36db67955ca3363f80694803bdcbfb2.tar.gz | |
Add flags param to hv_ename_*
We will need this for making the API UTF8-aware in 5.16
or whenever.
Diffstat (limited to 'hv.c')
| -rw-r--r-- | hv.c | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -2173,13 +2173,14 @@ table. */ void -Perl_hv_ename_add(pTHX_ HV *hv, const char *name, U32 len) +Perl_hv_ename_add(pTHX_ HV *hv, const char *name, U32 len, U32 flags) { dVAR; struct xpvhv_aux *aux = SvOOK(hv) ? HvAUX(hv) : hv_auxinit(hv); U32 hash; PERL_ARGS_ASSERT_HV_ENAME_ADD; + PERL_UNUSED_ARG(flags); if (len > I32_MAX) Perl_croak(aTHX_ "panic: hv name too long (%"UVuf")", (UV) len); @@ -2229,12 +2230,13 @@ This is called when a stash is deleted from the symbol table. */ void -Perl_hv_ename_delete(pTHX_ HV *hv, const char *name, U32 len) +Perl_hv_ename_delete(pTHX_ HV *hv, const char *name, U32 len, U32 flags) { dVAR; struct xpvhv_aux *aux; PERL_ARGS_ASSERT_HV_ENAME_DELETE; + PERL_UNUSED_ARG(flags); if (len > I32_MAX) Perl_croak(aTHX_ "panic: hv name too long (%"UVuf")", (UV) len); |