diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2013-04-09 04:27:16 -0300 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2013-09-11 10:28:29 +1000 |
| commit | 90aeefb47309434774bb94bdb3c7a92dedf59563 (patch) | |
| tree | 2ad34ee21ec441502b43472db01c62467abc8d03 /embed.fnc | |
| parent | 30877037d0977c0e3b7a5268b63d626f65d428ab (diff) | |
| download | perl-90aeefb47309434774bb94bdb3c7a92dedf59563.tar.gz | |
gv.c: Begin splitting gv_fetchpvn_flags into smaller helper functions.
This commit takes a chunk of code out of gv_fetchpvn_flags and
turns it into two fuctions: parse_gv_stash_name and find_default_stash.
Diffstat (limited to 'embed.fnc')
| -rw-r--r-- | embed.fnc | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -1777,6 +1777,13 @@ sR |I32 |do_trans_complex_utf8 |NN SV * const sv #if defined(PERL_IN_GV_C) s |void |gv_init_svtype |NN GV *gv|const svtype sv_type s |void |gv_magicalize_isa |NN GV *gv +s |bool|parse_gv_stash_name|NN HV **stash|NN GV **gv \ + |NN const char **name|NN STRLEN *len \ + |NN const char *nambeg|STRLEN full_len \ + |const U32 is_utf8|const I32 add +s |bool|find_default_stash|NN HV **stash|NN const char *name \ + |STRLEN len|const U32 is_utf8|const I32 add \ + |svtype sv_type s |HV* |require_tie_mod|NN GV *gv|NN const char *varpv|NN SV* namesv \ |NN const char *methpv|const U32 flags #endif |