diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2011-11-15 05:42:09 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-03-25 14:08:22 -0700 |
| commit | 5db1eb8d3ecc607380cd43267d08149b82822fe9 (patch) | |
| tree | 7e87adca6d09b5757f4c116dba6780f8b26deeba /cop.h | |
| parent | 70558906b0dcb94c924d98d19c32c8f22f495cde (diff) | |
| download | perl-5db1eb8d3ecc607380cd43267d08149b82822fe9.tar.gz | |
Label UTF8 cleanup
This meant changing LABEL's definition in perly.y, so most of this
commit is actually from the regened files.
Diffstat (limited to 'cop.h')
| -rw-r--r-- | cop.h | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -555,6 +555,8 @@ be zero. cophh_2hv(CopHINTHASH_get(cop), flags) #define CopLABEL(c) Perl_cop_fetch_label(aTHX_ (c), NULL, NULL) +#define CopLABEL_len(c,len) Perl_cop_fetch_label(aTHX_ (c), len, NULL) +#define CopLABEL_len_flags(c,len,flags) Perl_cop_fetch_label(aTHX_ (c), len, flags) #define CopLABEL_alloc(pv) ((pv)?savepv(pv):NULL) #define CopSTASH_ne(c,hv) (!CopSTASH_eq(c,hv)) @@ -779,6 +781,8 @@ struct block_loop { : (SV**)NULL) #define CxLABEL(c) (0 + CopLABEL((c)->blk_oldcop)) +#define CxLABEL_len(c,len) (0 + CopLABEL_len((c)->blk_oldcop, len)) +#define CxLABEL_len_flags(c,len,flags) (0 + CopLABEL_len_flags((c)->blk_oldcop, len, flags)) #define CxHASARGS(c) (((c)->cx_type & CXp_HASARGS) == CXp_HASARGS) #define CxLVAL(c) (0 + (c)->blk_u16) |