diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-01-07 12:46:07 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-01-07 12:46:07 +0000 |
| commit | 7a5fd60d4ce737f71e7a689eaa2061a36dd225dc (patch) | |
| tree | 183a110209d7b6c885b4a544840990eed5ece802 /gv.h | |
| parent | 92ca9816760477489e51e09e0dcde1dda70f387d (diff) | |
| download | perl-7a5fd60d4ce737f71e7a689eaa2061a36dd225dc.tar.gz | |
Stage 1 of utf8 support for soft references.
Change gv_fetchpv to take a UTF8 flag, as gv_fetchpvn_flags
Add gv_fetchsv to look up a GV by SV rather than a char * pointer
Provide a backwards compatability gv_fetchpv
Migrate from gv_fetchpv to gv_fetchsv where the caller was grabbing
the pointer from an SV
All tests still pass.
p4raw-id: //depot/perl@23766
Diffstat (limited to 'gv.h')
| -rw-r--r-- | gv.h | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -153,6 +153,8 @@ Return the SV from the GV. #define GV_ADDWARN 0x04 /* add, but warn if symbol wasn't already there */ #define GV_ADDINEVAL 0x08 /* add, as though we're doing so within an eval */ #define GV_NOINIT 0x10 /* add, but don't init symbol, if type != PVGV */ - +/* SVf_UTF8 (more accurately the return value from SvUTF8) is also valid + as a flag to gv_fetch_pvn_flags, so ensure it lies outside this range. +*/ #define gv_fullname3(sv,gv,prefix) gv_fullname4(sv,gv,prefix,TRUE) #define gv_efullname3(sv,gv,prefix) gv_efullname4(sv,gv,prefix,TRUE) |