From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 1 Mar 2007 16:09:31 +0000 (+0000)
Subject: Don't SEGV when dumping an undefined typeglob. The HEK used to store
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5be41be4072fd5cea66cae4e0e2cdfd32753ce89;p=p5sagit%2Fp5-mst-13.2.git

Don't SEGV when dumping an undefined typeglob. The HEK used to store
the GV's name can be NULL.

p4raw-id: //depot/perl@30439
---

diff --git a/gv.h b/gv.h
index cbc6840..61af704 100644
--- a/gv.h
+++ b/gv.h
@@ -113,7 +113,7 @@ Return the SV from the GV.
 
 #define GvLINE(gv)	(GvGP(gv)->gp_line)
 #define GvFILE_HEK(gv)	(GvGP(gv)->gp_file_hek)
-#define GvFILE(gv)	HEK_KEY(GvFILE_HEK(gv))
+#define GvFILE(gv)	(GvFILE_HEK(gv) ? HEK_KEY(GvFILE_HEK(gv)) : NULL)
 #define GvFILEGV(gv)	(gv_fetchfile(GvFILE(gv)))
 
 #define GvEGV(gv)	(GvGP(gv)->gp_egv)