diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2013-05-21 11:32:45 -0300 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2013-09-11 10:28:29 +1000 |
| commit | 070dc47562b0f958a4767d69f47c6cf47cb7e230 (patch) | |
| tree | 5d41d9320d88102bd25fff0ba541be9e3cdb0bd4 /proto.h | |
| parent | c002ae9ab5e2b176614fd95831af56e7b5945202 (diff) | |
| download | perl-070dc47562b0f958a4767d69f47c6cf47cb7e230.tar.gz | |
gv.c, gv_fetchpvn_flags: Split another chunk of magic-checking code.
This bit is called when a GV already exists, but it's name is length-one
and it's on the main:: stash, so it might have multiple kinds of magic,
like $! and %!, or @+ and %+.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -5741,6 +5741,12 @@ STATIC GV* S_magicalize_gv(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len #define PERL_ARGS_ASSERT_MAGICALIZE_GV \ assert(gv); assert(stash); assert(name) +STATIC void S_maybe_multimagic_gv(pTHX_ GV *gv, const char *name, const svtype sv_type) + __attribute__nonnull__(pTHX_1) + __attribute__nonnull__(pTHX_2); +#define PERL_ARGS_ASSERT_MAYBE_MULTIMAGIC_GV \ + assert(gv); assert(name) + STATIC bool S_parse_gv_stash_name(pTHX_ HV **stash, GV **gv, const char **name, STRLEN *len, const char *nambeg, STRLEN full_len, const U32 is_utf8, const I32 add) __attribute__nonnull__(pTHX_1) __attribute__nonnull__(pTHX_2) |