summaryrefslogtreecommitdiff
path: root/gv.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2008-05-10 16:44:45 +0000
committerNicholas Clark <nick@ccl4.org>2008-05-10 16:44:45 +0000
commit547bb2675d6f6f0c11281a37d160943a92b3a025 (patch)
tree55778c3a42de41b48b19f3757888cf53dc92723d /gv.c
parent500a801928e3d02ca64835521d3b82c60838e663 (diff)
downloadperl-547bb2675d6f6f0c11281a37d160943a92b3a025.tar.gz
Run Porting/checkARGS_ASSERT.pl and fix what it picks up. (Which,
coincidentally were both from changes I made) p4raw-id: //depot/perl@33814
Diffstat (limited to 'gv.c')
-rw-r--r--gv.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/gv.c b/gv.c
index 20eb17ebe7..da794039f7 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;