pad.c: Don’t copy shared hash key targets when cloning

When creating a new thread, don’t treat shared hash key targets as
constants.  (See the previous commit for explanation.)

This should cause no change in behaviour, because the new target will
not be in use, and its next use will immediately overwrite its value.
It just saves having to copy a string that will be overwritten.

1 files changed, 1 insertions, 1 deletions

diff --git a/pad.c b/pad.c
index e44083b01e..082dc662f9 100644
--- a/pad.c
+++ b/pad.c
@@ -2445,7 +2445,7 @@ Perl_padlist_dup(pTHX_ PADLIST *srcpad, CLONE_PARAMS *param)
 			}
 		    }
 		}
-		else if (IS_PADGV(oldpad[ix]) || IS_PADCONST(oldpad[ix])) {
+		else if (IS_PADGV(oldpad[ix]) || PadnamePV(names[ix])) {
 		    pad1a[ix] = sv_dup_inc(oldpad[ix], param);
 		}
 		else {