From 54c554f38309fa055396f28507f661ae9fbdde5e Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Fri, 18 May 2012 09:25:26 -0700
Subject: [PATCH] sv.h: define SvAMAGIC in terms of HvAMAGIC

---
 sv.h | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/sv.h b/sv.h
index 8d09ccb..10988e8 100644
--- a/sv.h
+++ b/sv.h
@@ -880,19 +880,17 @@ in gv.h: */
 #define SvRMAGICAL_off(sv)	(SvFLAGS(sv) &= ~SVs_RMG)
 
 #define SvAMAGIC(sv)		(SvROK(sv) && SvOBJECT(SvRV(sv)) &&	\
-				 SvFLAGS(SvSTASH(SvRV(sv))) & SVf_AMAGIC)
+				 HvAMAGIC(SvSTASH(SvRV(sv))))
 #if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN)
 #  define SvAMAGIC_on(sv)	({ SV * const kloink = sv;		\
 				   assert(SvROK(kloink));		\
 				   if (SvOBJECT(SvRV(kloink)))		\
-				    SvFLAGS(SvSTASH(SvRV(kloink)))	\
-					|= SVf_AMAGIC;			\
+				    HvAMAGIC_on(SvSTASH(SvRV(kloink)));	\
 				})
 #  define SvAMAGIC_off(sv)	({ SV * const kloink = sv;		\
 				   if(SvROK(kloink)			\
 				      && SvOBJECT(SvRV(kloink)))	\
-					SvFLAGS(SvSTASH(SvRV(kloink)))	\
-					    &= ~SVf_AMAGIC;		\
+				     HvAMAGIC_off(SvSTASH(SvRV(kloink))); \
 				})
 #else
 #  define SvAMAGIC_on(sv) \
-- 
2.7.4