diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2002-12-25 02:29:17 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-12-25 02:29:17 +0000 |
| commit | 38d8b13e2cf63eac648d6b8654a26ba4d3c27102 (patch) | |
| tree | 5d06ff6bb25a0e095c3214d13f4c7f1e5db01ad2 /sv.c | |
| parent | 2032b5b43553f43052c667356062c7827c776dcd (diff) | |
| download | perl-38d8b13e2cf63eac648d6b8654a26ba4d3c27102.tar.gz | |
#18345 was still broken; should be fixed now.
p4raw-id: //depot/perl@18351
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -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: |