diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-05-24 10:59:01 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-06-11 09:40:01 +0200 |
| commit | 1979170bfeba87d234d4d34023c2ea5feeb22f48 (patch) | |
| tree | 85111eee90eb99a1999b228c8094162705149c01 /pad.h | |
| parent | 4265b45d3e4359a48158b96f90aa017ade60632c (diff) | |
| download | perl-1979170bfeba87d234d4d34023c2ea5feeb22f48.tar.gz | |
Test that SvFLAGS() & SVpad_NAME is SVpad_NAME, not just non-zero.
In Perl_find_rundefsv() and PAD_COMPNAME_FLAGS_isOUR(), replace longhand flags
test with SvPAD_OUR().
Diffstat (limited to 'pad.h')
| -rw-r--r-- | pad.h | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -309,8 +309,7 @@ ling pad (lvalue) to C<gen>. Note that C<SvUV_set> is hijacked for this purpose #define PAD_COMPNAME_SV(po) (*av_fetch(PL_comppad_name, (po), FALSE)) #define PAD_COMPNAME_FLAGS(po) SvFLAGS(PAD_COMPNAME_SV(po)) -#define PAD_COMPNAME_FLAGS_isOUR(po) \ - ((PAD_COMPNAME_FLAGS(po) & (SVpad_NAME|SVpad_OUR)) == (SVpad_NAME|SVpad_OUR)) +#define PAD_COMPNAME_FLAGS_isOUR(po) SvPAD_OUR(PAD_COMPNAME_SV(po)) #define PAD_COMPNAME_PV(po) SvPV_nolen(PAD_COMPNAME_SV(po)) #define PAD_COMPNAME_TYPE(po) pad_compname_type(po) |