X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/584307902de552f84517013f42d1db478f4102bd..169d2d72355cfee106217aa142a9e61dc32e53d9:/gv.h

diff --git a/gv.h b/gv.h
index 3e2bc90..81a42cf 100644
--- a/gv.h
+++ b/gv.h
@@ -63,6 +63,11 @@ struct gp {
 #  define GvNAMELEN(gv)	(GvXPVGV(gv)->xgv_namelen)
 #endif
 
+#define	GvASSIGN_GENERATION(gv)		(0 + ((XPV*) SvANY(gv))->xpv_cur)
+#define	GvASSIGN_GENERATION_set(gv,val)			\
+	STMT_START { assert(SvTYPE(gv) == SVt_PVGV);	\
+		(((XPV*) SvANY(gv))->xpv_cur = (val)); } STMT_END
+
 /*
 =head1 GV Functions