1 files changed, 1 insertions, 1 deletions
diff --git a/hv.c b/hv.c
index 32503a9366..147efcc21e 100644
--- a/hv.c
+++ b/hv.c
@@ -1730,7 +1730,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, Nullch, 0, 0);
+	hv_name_set(hv, Nullch, 0, 0);
     }
     SvFLAGS(hv) &= ~SVf_OOK;
     Safefree(HvARRAY(hv));