diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-02-24 10:29:48 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-02-24 10:29:48 +0000 |
| commit | 1e7f542f0732947deb78e87eb5c42a3ee9fa9418 (patch) | |
| tree | ffe2184aa293871add906822a0f5f7a431a96819 | |
| parent | c696a6a43b0b5a16f820f8a91db4e187fc9ac45b (diff) | |
| download | perl-1e7f542f0732947deb78e87eb5c42a3ee9fa9418.tar.gz | |
As SVs can't both be in a pad, and the name of a variable in the pad,
overlay SVs_PADTMP with SVpad_TYPED and SVs_PADMY with SVpad_OUR.
p4raw-id: //depot/perl@27297
| -rw-r--r-- | pad.h | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -219,7 +219,8 @@ ling pad (lvalue) to C<gen>. Note that C<SvCUR_set> is hijacked for this purpos */ #define PAD_COMPNAME_FLAGS(po) SvFLAGS(*av_fetch(PL_comppad_name, (po), FALSE)) -#define PAD_COMPNAME_FLAGS_isOUR(po) (PAD_COMPNAME_FLAGS(po) & SVpad_OUR) +#define PAD_COMPNAME_FLAGS_isOUR(po) \ + ((PAD_COMPNAME_FLAGS(po) & (SVpad_NAME|SVpad_OUR)) == (SVpad_NAME|SVpad_OUR)) #define PAD_COMPNAME_PV(po) SvPV_nolen(*av_fetch(PL_comppad_name, (po), FALSE)) #define PAD_COMPNAME_TYPE(po) pad_compname_type(po) |