From: Artur Bergman <sky@nanisky.com>
Date: Thu, 25 Oct 2001 10:17:26 +0000 (+0000)
Subject: Note to self, doing *src_ary++ in a macro that evaluates
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3cc54a1f49451ebc6892cc4fcfc3faf510b77181;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/sharedsv.c b/sharedsv.c
index e91d7b9..ef5ebf0 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;
         }