This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Correct the non gcc-brace-group definition of SvAMAGIC_off
authorNicholas Clark <nick@ccl4.org>
Wed, 15 Mar 2006 19:47:02 +0000 (19:47 +0000)
committerNicholas Clark <nick@ccl4.org>
Wed, 15 Mar 2006 19:47:02 +0000 (19:47 +0000)
p4raw-id: //depot/perl@27511

sv.h

diff --git a/sv.h b/sv.h
index 73ed715..cf2f656 100644 (file)
--- a/sv.h
+++ b/sv.h
@@ -988,7 +988,8 @@ in gv.h: */
                                })
 #else
 #  define SvAMAGIC_on(sv)      (SvFLAGS(SvRV(sv)) |= SVf_AMAGIC)
-#  define SvAMAGIC_off(sv)     (SvROK(sv) && SvFLAGS(SvRV(sv)) &= ~SVf_AMAGIC)
+#  define SvAMAGIC_off(sv) \
+       (SvROK(sv) && (SvFLAGS(SvRV(sv)) &= ~SVf_AMAGIC))
 #endif
 
 #define SvGAMAGIC(sv)           (SvGMAGICAL(sv) || SvAMAGIC(sv))