From b7e0bd9e800e06ac92e4d24efd91bf8739281a2f Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 7 Jan 2008 13:53:57 +0000
Subject: ReREFCNT_inc() should return a pointer to REGEXP. [I don't get
 warnings about void context here, but I'm sure someone will :-(]

p4raw-id: //depot/perl@32890
---
 regexp.h | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'regexp.h')

diff --git a/regexp.h b/regexp.h
index 7696ec25b8..b41c0a41e1 100644
--- a/regexp.h
+++ b/regexp.h
@@ -437,7 +437,7 @@ and check for NULL.
     ({									\
 	/* This is here to generate a casting warning if incorrect.  */	\
 	REGEXP *const zwapp = (re);					\
-	SvREFCNT_inc(zwapp);						\
+	(REGEXP *) SvREFCNT_inc(zwapp);					\
     })
 #  define ReREFCNT_dec(re)						\
     ({									\
@@ -447,7 +447,7 @@ and check for NULL.
     })
 #else
 #  define ReREFCNT_dec(re)	SvREFCNT_dec(re)
-#  define ReREFCNT_inc(re)	SvREFCNT_inc(re)
+#  define ReREFCNT_inc(re)	((REGEXP *) SvREFCNT_inc(re))
 #endif
 
 /* FIXME for plugins. */
-- 
cgit v1.2.1