Preserve outside pointers of my subs with string eval

The CvHASEVAL flag lets cv_clone know that the clone needs to have its
CvOUTSIDE pointer set, for the sake of string evals’ being able to
look up variables.

It was only being set on anonymous subs.  It should be set for all
clonable subs.  It doesn’t actually hurt to set it on all types of
subs, whether clonable or not, since it has no effect on non-clon-
able subs.

1 files changed, 1 insertions, 1 deletions

diff --git a/pad.c b/pad.c
index 960d725d82..941f66382b 100644
--- a/pad.c
+++ b/pad.c
@@ -1716,8 +1716,8 @@ Perl_pad_tidy(pTHX_ padtidy_type type)
 		DEBUG_Xv(PerlIO_printf(Perl_debug_log,
 		    "Pad clone on cv=0x%"UVxf"\n", PTR2UV(cv)));
 		CvCLONE_on(cv);
-		CvHASEVAL_on(cv);
 	    }
+	    CvHASEVAL_on(cv);
 	}
     }