more on #18312: sv.c:ss_dup()

p4raw-id: //depot/perl@18344

diff --git a/sv.c b/sv.c
index d478583..d4a717a 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -10033,6 +10033,10 @@ Perl_ss_dup(pTHX_ PerlInterpreter *proto_perl, CLONE_PARAMS* param)
            sv = (SV*)POPPTR(ss,ix);
            TOPPTR(nss,ix) = sv_dup(sv, param);
            break;
+       case SAVEt_BOOL:
+           ptr = POPPTR;
+           *(bool*)ptr = (bool)POPBOOL;
+           break;
        default:
            Perl_croak(aTHX_ "panic: ss_dup inconsistency");
        }