diff options
author | Nicholas Clark <nick@ccl4.org> | 2008-05-10 16:44:45 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2008-05-10 16:44:45 +0000 |
commit | 547bb2675d6f6f0c11281a37d160943a92b3a025 (patch) | |
tree | 55778c3a42de41b48b19f3757888cf53dc92723d /gv.c | |
parent | 500a801928e3d02ca64835521d3b82c60838e663 (diff) | |
download | perl-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.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -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; |