Fix crash when lex subs are used for AUTOLOAD

1 files changed, 1 insertions, 1 deletions

diff --git a/gv.c b/gv.c
index 500e24b2c2..7e3058dadd 100644
--- a/gv.c
+++ b/gv.c
@@ -1198,7 +1198,7 @@ Perl_gv_autoload_pvn(pTHX_ HV *stash, const char *name, STRLEN len, U32 flags)
      * use that, but for lack of anything better we will use the sub's
      * original package to look up $AUTOLOAD.
      */
-    varstash = GvSTASH(CvGV(cv));
+    varstash = CvNAMED(cv) ? CvSTASH(cv) : GvSTASH(CvGV(cv));
     vargv = *(GV**)hv_fetch(varstash, S_autoload, S_autolen, TRUE);
     ENTER;