From 547bb2675d6f6f0c11281a37d160943a92b3a025 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Sat, 10 May 2008 16:44:45 +0000 Subject: [PATCH] Run Porting/checkARGS_ASSERT.pl and fix what it picks up. (Which, coincidentally were both from changes I made) p4raw-id: //depot/perl@33814 --- gv.c | 4 +++- hv.c | 2 ++ 2 files changed, 5 insertions(+), 1 deletion(-) 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)); } -- 2.7.4