From e69194836739c81076634d7782cecab9026c4aca Mon Sep 17 00:00:00 2001 From: Brian Fraser Date: Tue, 5 Jul 2011 02:14:59 -0300 Subject: gv.c: Added gv_fetchmeth_(sv|pv|pvn). I'm probably pushing this too early. Can't do the Perl-level tests because of that. TODO. --- gv.h | 1 + 1 file changed, 1 insertion(+) (limited to 'gv.h') diff --git a/gv.h b/gv.h index e48d648604..b75da5a5b1 100644 --- a/gv.h +++ b/gv.h @@ -238,6 +238,7 @@ Return the SV from the GV. #define gv_fetchmethod(stash, name) gv_fetchmethod_autoload(stash, name, TRUE) #define gv_fetchsv_nomg(n,f,t) gv_fetchsv(n,(f)|GV_NO_SVGMAGIC,t) #define gv_init(gv,stash,name,len,multi) gv_init_pvn(gv,stash,name,len,multi,0) +#define gv_fetchmeth(stash,name, len,level) gv_fetchmeth_pvn(stash, name, len, level, 0) #define gv_AVadd(gv) gv_add_by_type((gv), SVt_PVAV) #define gv_HVadd(gv) gv_add_by_type((gv), SVt_PVHV) -- cgit v1.2.1