Propagate cop_hints inside string evals. For the unthreaded case this

is easy. For the threaded case it's not, because the current OP may
be shared with another thread, so solve this by copying the hints
chain.

p4raw-id: //depot/perl@27659

1 files changed, 1 insertions, 0 deletions

diff --git a/proto.h b/proto.h
index 9a7ab7f182..2be599edf8 100644
--- a/proto.h
+++ b/proto.h
@@ -721,6 +721,7 @@ PERL_CALLCONV void	Perl_hv_ksplit(pTHX_ HV* hv, IV newmax)
 			__attribute__nonnull__(pTHX_1); */
 
 #ifdef USE_ITHREADS
+PERL_CALLCONV struct refcounted_he *	Perl_refcounted_he_copy(pTHX_ const struct refcounted_he *he);
 PERL_CALLCONV struct refcounted_he *	Perl_refcounted_he_dup(pTHX_ const struct refcounted_he *const he, CLONE_PARAMS* param)
 			__attribute__nonnull__(pTHX_2);