From 5be41be4072fd5cea66cae4e0e2cdfd32753ce89 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Thu, 1 Mar 2007 16:09:31 +0000 Subject: [PATCH] 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 --- gv.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 1.8.3.1