Change 12639 by sky@sky-borderline on 2001/10/25 10:17:26
Note to self, doing *src_ary++ in a macro that evaluates the value more than
once is a good
way to dump core.
Affected files ...
... //depot/perl/sharedsv.c#12 edit
Differences ...
==== //depot/perl/sharedsv.c#12 (text) ====
Index: perl/sharedsv.c
--- perl/sharedsv.c.~1~ Thu Oct 25 04:30:05 2001
+++ perl/sharedsv.c Thu Oct 25 04:30:05 2001
@@ -218,7 +218,8 @@
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;
}
End of Patch.
