more on #18344.

p4raw-id: //depot/perl@18345

diff --git a/sv.c b/sv.c
index d4a717a..d390cbd 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -10035,7 +10035,9 @@ Perl_ss_dup(pTHX_ PerlInterpreter *proto_perl, CLONE_PARAMS* param)
            break;
        case SAVEt_BOOL:
            ptr = POPPTR;
-           *(bool*)ptr = (bool)POPBOOL;
+           TOPPTR(nss,ix) = any_dup(ptr, proto_perl);
+           longval = (long)POPBOOL;
+           TOPBOOL(nss,ix) = (bool)longval;
            break;
        default:
            Perl_croak(aTHX_ "panic: ss_dup inconsistency");