From 2649f2c19a9dc4cac2cf535de25fe7b36dee8328 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 15 Jun 2004 07:17:17 +0000
Subject: Assert SvTYPE is at least PGMV whenever accessing SvSTASH

p4raw-id: //depot/perl@22935
---
 sv.h | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'sv.h')

diff --git a/sv.h b/sv.h
index bc03bb8a15..229690ce61 100644
--- a/sv.h
+++ b/sv.h
@@ -742,7 +742,7 @@ and leaves the UTF-8 status as it was.
 
 #ifdef DEBUGGING
 #define SvMAGIC(sv)	((assert(SvTYPE(sv) >= SVt_PVMG)), ((XPVMG*)  SvANY(sv))->xmg_magic)
-#define SvSTASH(sv)	((XPVMG*)  SvANY(sv))->xmg_stash
+#define SvSTASH(sv)	((assert(SvTYPE(sv) >= SVt_PVMG)), (XPVMG*)  SvANY(sv))->xmg_stash
 #else
 #define SvMAGIC(sv)	((XPVMG*)  SvANY(sv))->xmg_magic
 #define SvSTASH(sv)	((XPVMG*)  SvANY(sv))->xmg_stash
-- 
cgit v1.2.1