diff options
| author | Andy Lester <andy@petdance.com> | 2005-07-13 05:49:19 -0500 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2005-07-13 16:37:48 +0000 |
| commit | 46c461b51dd657dd9227e8d230ce0a737a33cb3e (patch) | |
| tree | ca0f3694daf76da19fba2b8c90d3aa186b9011f9 /hv.c | |
| parent | 858a90f980dd074da7b777d2a853a60c6e058f77 (diff) | |
| download | perl-46c461b51dd657dd9227e8d230ce0a737a33cb3e.tar.gz | |
More embed.fnc plowing
Message-ID: <20050713154919.GA24586@petdance.com>
p4raw-id: //depot/perl@25138
Diffstat (limited to 'hv.c')
| -rw-r--r-- | hv.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -1729,7 +1729,7 @@ Perl_hv_undef(pTHX_ HV *hv) if ((name = HvNAME_get(hv))) { if(PL_stashcache) hv_delete(PL_stashcache, name, HvNAMELEN_get(hv), G_DISCARD); - Perl_hv_name_set(aTHX_ hv, 0, 0, 0); + Perl_hv_name_set(aTHX_ hv, Nullch, 0, 0); } SvFLAGS(hv) &= ~SVf_OOK; Safefree(HvARRAY(hv)); @@ -1871,7 +1871,8 @@ Perl_hv_name_set(pTHX_ HV *hv, const char *name, I32 len, int flags) { struct xpvhv_aux *iter; U32 hash; - (void)flags; + + PERL_UNUSED_ARG(flags); if (SvOOK(hv)) { iter = HvAUX(hv); |