From 38d8b13e2cf63eac648d6b8654a26ba4d3c27102 Mon Sep 17 00:00:00 2001 From: Hugo van der Sanden Date: Wed, 25 Dec 2002 02:29:17 +0000 Subject: [PATCH] #18345 was still broken; should be fixed now. p4raw-id: //depot/perl@18351 --- sv.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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: -- 2.7.4