1 files changed, 4 insertions, 1 deletions
diff --git a/pp.c b/pp.c
index 7acc1da8da..bcf1633c1d 100644
--- a/pp.c
+++ b/pp.c
@@ -595,7 +595,10 @@ PP(pp_gelem)
 	break;
     case 'P':
 	if (strEQ(elem, "PACKAGE"))
-	    sv = newSVpv(HvNAME(GvSTASH(gv)), 0);
+	    if (HvNAME(GvSTASH(gv)))
+		sv = newSVpv(HvNAME(GvSTASH(gv)), 0);
+	    else
+		sv = newSVpv("__ANON__",0);
 	break;
     case 'S':
 	if (strEQ(elem, "SCALAR"))