Stop undef &foo from crashing on lex subs

1 files changed, 6 insertions, 1 deletions

diff --git a/pp.c b/pp.c
index 77a9f01653..f8a31e2cae 100644
--- a/pp.c
+++ b/pp.c
@@ -973,7 +973,12 @@ PP(pp_undef)
                           "Constant subroutine %"SVf" undefined",
 			   SVfARG(CvANON((const CV *)sv)
                              ? newSVpvs_flags("(anonymous)", SVs_TEMP)
-                             : sv_2mortal(newSVhek(GvENAME_HEK(CvGV((const CV *)sv))))));
+                             : sv_2mortal(newSVhek(
+                                CvNAMED(sv)
+                                 ? CvNAME_HEK((CV *)sv)
+                                 : GvENAME_HEK(CvGV((const CV *)sv))
+                               ))
+                           ));
 	/* FALLTHROUGH */
     case SVt_PVFM:
 	{