diff options
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; } |