diff options
author | Father Chrysostomos <sprout@cpan.org> | 2014-08-28 17:37:55 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2014-09-15 06:19:31 -0700 |
commit | f3feca7af46a3153748b8e8b033fc84562b4b9f3 (patch) | |
tree | e312d1423cbf8daa15ff2bb0eff7c369cac0ca4b /gv.c | |
parent | 5bb151a5298022b008a5ed5db02fc631824f2670 (diff) | |
download | perl-f3feca7af46a3153748b8e8b033fc84562b4b9f3.tar.gz |
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.
Diffstat (limited to 'gv.c')
-rw-r--r-- | gv.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -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; |