Re: Proposed changes and to regular expression interfaces in core

[perl5.git] / sv.h

diff --git a/sv.h b/sv.h
index d3f69c0..ba873ea 100644 (file)
--- a/sv.h
+++ b/sv.h
@@ -274,7 +274,7 @@ perform the upgrade if necessary.  See C<svtype>.
 #endif
 
 #define SVTYPEMASK     0xff
-#define SvTYPE(sv)     (svtype)((sv)->sv_flags & SVTYPEMASK)
+#define SvTYPE(sv)     ((svtype)((sv)->sv_flags & SVTYPEMASK))
 
 /* Sadly there are some parts of the core that have pointers to already-freed
    SV heads, and rely on being able to tell that they are now free. So mark