From: Hugo van der Sanden <hv@crypt.org>
Date: Wed, 25 Dec 2002 02:29:17 +0000 (+0000)
Subject: #18345 was still broken; should be fixed now.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=38d8b13e2cf63eac648d6b8654a26ba4d3c27102;p=p5sagit%2Fp5-mst-13.2.git

#18345 was still broken; should be fixed now.

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

diff --git a/sv.c b/sv.c
index d390cbd..d8a8245 100644
--- a/sv.c
+++ b/sv.c
@@ -9746,6 +9746,8 @@ Perl_si_dup(pTHX_ PERL_SI *si, CLONE_PARAMS* param)
 #define TOPLONG(ss,ix)	((ss)[ix].any_long)
 #define POPIV(ss,ix)	((ss)[--(ix)].any_iv)
 #define TOPIV(ss,ix)	((ss)[ix].any_iv)
+#define POPBOOL(ss,ix)	((ss)[--(ix)].any_bool)
+#define TOPBOOL(ss,ix)	((ss)[ix].any_bool)
 #define POPPTR(ss,ix)	((ss)[--(ix)].any_ptr)
 #define TOPPTR(ss,ix)	((ss)[ix].any_ptr)
 #define POPDPTR(ss,ix)	((ss)[--(ix)].any_dptr)
@@ -10034,9 +10036,9 @@ Perl_ss_dup(pTHX_ PerlInterpreter *proto_perl, CLONE_PARAMS* param)
 	    TOPPTR(nss,ix) = sv_dup(sv, param);
 	    break;
 	case SAVEt_BOOL:
-	    ptr = POPPTR;
+	    ptr = POPPTR(ss,ix);
 	    TOPPTR(nss,ix) = any_dup(ptr, proto_perl);
-	    longval = (long)POPBOOL;
+	    longval = (long)POPBOOL(ss,ix);
 	    TOPBOOL(nss,ix) = (bool)longval;
 	    break;
 	default: