From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 10 May 2008 16:44:45 +0000 (+0000)
Subject: Run Porting/checkARGS_ASSERT.pl and fix what it picks up. (Which,
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=547bb2675d6f6f0c11281a37d160943a92b3a025;p=p5sagit%2Fp5-mst-13.2.git

Run Porting/checkARGS_ASSERT.pl and fix what it picks up. (Which,
coincidentally were both from changes I made)

p4raw-id: //depot/perl@33814
---

diff --git a/gv.c b/gv.c
index 20eb17e..da79403 100644
--- a/gv.c
+++ b/gv.c
@@ -602,6 +602,8 @@ S_gv_get_super_pkg(pTHX_ const char* name, I32 namelen)
 GV *
 Perl_gv_fetchmethod_autoload(pTHX_ HV *stash, const char *name, I32 autoload)
 {
+    PERL_ARGS_ASSERT_GV_FETCHMETHOD_AUTOLOAD;
+
     return gv_fetchmethod_flags(stash, name, autoload ? GV_AUTOLOAD : 0);
 }
 
@@ -620,7 +622,7 @@ Perl_gv_fetchmethod_flags(pTHX_ HV *stash, const char *name, U32 flags)
     const U32 autoload = flags & GV_AUTOLOAD;
     const U32 do_croak = flags & GV_CROAK;
 
-    PERL_ARGS_ASSERT_GV_FETCHMETHOD_AUTOLOAD;
+    PERL_ARGS_ASSERT_GV_FETCHMETHOD_FLAGS;
 
     if (SvTYPE(stash) < SVt_PVHV)
 	stash = NULL;
diff --git a/hv.c b/hv.c
index 6d33966..acc58e2 100644
--- 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));
 }