diff options
| author | Artur Bergman <sky@nanisky.com> | 2001-10-25 10:17:26 +0000 |
|---|---|---|
| committer | Artur Bergman <sky@nanisky.com> | 2001-10-25 10:17:26 +0000 |
| commit | 3cc54a1f49451ebc6892cc4fcfc3faf510b77181 (patch) | |
| tree | e0a248303a7277fd3c6997f4c4d546c72dd561de /sharedsv.c | |
| parent | ecdc15d98d79648f2ffa6dbe1e51fe6186b688fe (diff) | |
| download | perl-3cc54a1f49451ebc6892cc4fcfc3faf510b77181.tar.gz | |
Note to self, doing *src_ary++ in a macro that evaluates
the value more than once is a good way to dump core.
p4raw-id: //depot/perl@12639
Diffstat (limited to 'sharedsv.c')
| -rw-r--r-- | sharedsv.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/sharedsv.c b/sharedsv.c index e91d7b97d9..ef5ebf0b6b 100644 --- a/sharedsv.c +++ b/sharedsv.c @@ -218,7 +218,8 @@ Perl_sharedsv_thrcnt_dec(pTHX_ shared_sv* ssv) while (items-- > 0) { if(SvTYPE(*src_ary)) - Perl_sharedsv_thrcnt_dec(aTHX_ INT2PTR(shared_sv *, SvIV(*src_ary++))); + Perl_sharedsv_thrcnt_dec(aTHX_ INT2PTR(shared_sv *, SvIV(*src_ary))); + src_ary++; } break; } |