Turn on CVf_LEXICAL for lexical subs

This flag will signify that lexical subs should not have package names
associated with them in error messages, etc.

1 files changed, 1 insertions, 0 deletions

diff --git a/gv.c b/gv.c
index 5cbcf62176..134ed6ea53 100644
--- a/gv.c
+++ b/gv.c
@@ -235,6 +235,7 @@ Perl_cvgv_set(pTHX_ CV* cv, GV* gv)
     else if ((hek = CvNAME_HEK(cv))) {
 	unshare_hek(hek);
 	CvNAMED_off(cv);
+	CvLEXICAL_off(cv);
     }
 
     SvANY(cv)->xcv_gv_u.xcv_gv = gv;