From: Hugo van der Sanden <hv@crypt.org>
Date: Mon, 23 Dec 2002 05:56:43 +0000 (+0000)
Subject: more on #18312: sv.c:ss_dup()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a1bb4754fb5094033f3cadf3932de7db09e32812;p=p5sagit%2Fp5-mst-13.2.git

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

p4raw-id: //depot/perl@18344
---

diff --git a/sv.c b/sv.c
index d478583..d4a717a 100644
--- 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");
 	}