Add cast for GV type
Perl 5 Porters [Tue, 18 Jun 1996 07:41:19 +0000 (07:41 +0000)]
gv.h

diff --git a/gv.h b/gv.h
index b823fa5..3e81cba 100644 (file)
--- 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();