From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Tue, 18 Jun 1996 07:41:19 +0000 (+0000)
Subject: Add cast for GV type
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1090b3e7928c8381aa26808d3dc44b7f83ecc9f4;p=p5sagit%2Fp5-mst-13.2.git

Add cast for GV type
---

diff --git a/gv.h b/gv.h
index b823fa5..3e81cba 100644
--- a/gv.h
+++ b/gv.h
@@ -42,6 +42,7 @@ struct gp {
 
 #define GvFORM(gv)	(GvGP(gv)->gp_form)
 #define GvAV(gv)	(GvGP(gv)->gp_av)
+#define GvREFCNT_inc(gv) ((GV*)SvREFCNT_inc(gv))
 
 #ifdef	MICROPORT	/* Microport 2.4 hack */
 AV *GvAVn();