diff options
| author | Andy Lester <andy@petdance.com> | 2006-03-30 17:42:28 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-03-31 12:30:31 +0000 |
| commit | d4c19fe8d8a6e04364af0548bf783e83ab5987d2 (patch) | |
| tree | 99c9bda0de1d3d3b176a6b6ec8387cbc8002e990 /sv.h | |
| parent | 4d91e28241ad974dc4df24b1f21b7278e74f5310 (diff) | |
| download | perl-d4c19fe8d8a6e04364af0548bf783e83ab5987d2.tar.gz | |
Random accumulated patches
Message-ID: <20060331054228.GA18940@petdance.com>
p4raw-id: //depot/perl@27641
Diffstat (limited to 'sv.h')
| -rw-r--r-- | sv.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -978,11 +978,11 @@ in gv.h: */ #define SvAMAGIC(sv) (SvROK(sv) && (SvFLAGS(SvRV(sv)) & SVf_AMAGIC)) #if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN) -# define SvAMAGIC_on(sv) ({ SV *kloink = sv; \ +# define SvAMAGIC_on(sv) ({ SV * const kloink = sv; \ assert(SvROK(kloink)); \ SvFLAGS(SvRV(kloink)) |= SVf_AMAGIC; \ }) -# define SvAMAGIC_off(sv) ({ SV *kloink = sv; \ +# define SvAMAGIC_off(sv) ({ SV * const kloink = sv; \ if(SvROK(kloink)) \ SvFLAGS(SvRV(kloink)) &= ~SVf_AMAGIC;\ }) |