Use PERL=../miniperl

[p5sagit/p5-mst-13.2.git] / gv.h

diff --git a/gv.h b/gv.h
index 3e5ef98..3dd0ec8 100644 (file)
--- a/gv.h
+++ b/gv.h
@@ -70,10 +70,10 @@ HV *GvHVn();
 #define GvGP(gv)       (GvXPVGV(gv)->xgv_gp)
 #define GvNAME(gv)     (GvXPVGV(gv)->xgv_name)
 #define GvNAMELEN(gv)  (GvXPVGV(gv)->xgv_namelen)
-#define GvENAME(gv)    GvNAME(GvEGV(gv))
+#define GvENAME(gv)    GvNAME(GvEGV(gv) ? GvEGV(gv) : gv)
 
 #define GvSTASH(gv)    (GvXPVGV(gv)->xgv_stash)
-#define GvESTASH(gv)   GvSTASH(GvEGV(gv))
+#define GvESTASH(gv)   GvSTASH(GvEGV(gv) ? GvEGV(gv) : gv)
 
 #define Nullgv Null(GV*)