This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Change 27380 (HEK into the IV union failed to convert the code in the
authorNicholas Clark <nick@ccl4.org>
Sun, 5 Mar 2006 21:21:10 +0000 (21:21 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 5 Mar 2006 21:21:10 +0000 (21:21 +0000)
non-gcc-debugging ifdef. Whoops. Very lax of me)

p4raw-id: //depot/perl@27383

gv.h

diff --git a/gv.h b/gv.h
index f48cb15..e0cfeaa 100644 (file)
--- a/gv.h
+++ b/gv.h
@@ -53,7 +53,7 @@ struct gp {
 #  define GvGP(gv)     ((gv)->sv_u.svu_gp)
 #  define GvFLAGS(gv)  (GvXPVGV(gv)->xpv_cur)
 #  define GvSTASH(gv)  (GvXPVGV(gv)->xnv_u.xgv_stash)
-#  define GvNAME_HEK(gv)       (GvXPVGV(gv)->xgv_namehek)
+#  define GvNAME_HEK(gv)       (GvXPVGV(gv)->xiv_u.xivu_namehek)
 #endif
 
 #define GvNAME_get(gv)         (GvNAME_HEK(gv) ? HEK_KEY(GvNAME_HEK(gv)) : 0)