Run Porting/checkARGS_ASSERT.pl and fix what it picks up. (Which,

[p5sagit/p5-mst-13.2.git] / hv.c

diff --git a/hv.c b/hv.c
index 6d33966..acc58e2 100644 (file)
--- a/hv.c
+++ b/hv.c
@@ -2925,6 +2925,8 @@ Perl_fetch_cop_label(pTHX_ struct refcounted_he *const chain, STRLEN *len,
 struct refcounted_he *
 Perl_store_cop_label(pTHX_ struct refcounted_he *const chain, const char *label)
 {
+    PERL_ARGS_ASSERT_STORE_COP_LABEL;
+
     return refcounted_he_new_common(chain, ":", 1, HVrhek_PV, HVrhek_PV,
                                    label, strlen(label));
 }