Require Dist::Zilla 4.200016+

[gitmo/Moose.git] / xs / HasMethods.xs

diff --git a/xs/HasMethods.xs b/xs/HasMethods.xs
index 0e617eb..e136abe 100644 (file)
--- a/xs/HasMethods.xs
+++ b/xs/HasMethods.xs
@@ -5,7 +5,7 @@ SV *mop_associated_metaclass;
 SV *mop_wrap;
 
 static void
-mop_update_method_map(pTHX_ SV *const self, SV *const class_name, HV *const stash, HV *const map)
+mop_update_method_map(pTHX_ HV *const stash, HV *const map)
 {
     char *method_name;
     I32   method_name_len;
@@ -37,8 +37,8 @@ mop_update_method_map(pTHX_ SV *const self, SV *const class_name, HV *const stas
             continue;
         }
 
-        /* $map->{$method_name} = undef */
-        sv_setsv(method, &PL_sv_undef);
+        /* delete $map->{$method_name} */
+        (void)hv_delete(map, method_name, method_name_len, G_DISCARD);
     }
 }
 
@@ -74,7 +74,7 @@ _method_map(self)
         }
 
         if ( !SvOK(cache_flag) || SvUV(cache_flag) != current ) {
-            mop_update_method_map(aTHX_ self, class_name, stash, (HV *)SvRV(map_ref));
+            mop_update_method_map(aTHX_ stash, (HV *)SvRV(map_ref));
             sv_setuv(cache_flag, mop_check_package_cache_flag(aTHX_ stash)); /* update_cache_flag() */
         }