diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2013-08-04 14:55:56 -0300 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2013-09-11 10:28:30 +1000 |
| commit | 536d1a883d741d74ca5ab30c7fa72980d2593986 (patch) | |
| tree | 666ba8af03d1c8e67d198d59c70f89ade7e32e77 /proto.h | |
| parent | 930867a8e4ffdf642ef15c92e6f3a6d118965559 (diff) | |
| download | perl-536d1a883d741d74ca5ab30c7fa72980d2593986.tar.gz | |
gv.c: Split part of find_default_stash into gv_is_in_main.
gv_is_in_main() checks if an unqualified identifier is in the main::
stash.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -5729,6 +5729,11 @@ STATIC void S_gv_init_svtype(pTHX_ GV *gv, const svtype sv_type) #define PERL_ARGS_ASSERT_GV_INIT_SVTYPE \ assert(gv) +STATIC bool S_gv_is_in_main(pTHX_ const char *name, STRLEN len, const U32 is_utf8) + __attribute__nonnull__(pTHX_1); +#define PERL_ARGS_ASSERT_GV_IS_IN_MAIN \ + assert(name) + STATIC bool S_gv_magicalize(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len, bool addmg, svtype sv_type) __attribute__nonnull__(pTHX_1) __attribute__nonnull__(pTHX_2) |