diff options
| -rw-r--r-- | ext/threads/shared/shared.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/threads/shared/shared.xs b/ext/threads/shared/shared.xs index 9ef9101d80..bbc6e6ec1c 100644 --- a/ext/threads/shared/shared.xs +++ b/ext/threads/shared/shared.xs @@ -588,7 +588,7 @@ DELETE(self, key) tmp = hv_delete((HV*) SHAREDSvGET(shared), ckey, len,0); SHAREDSvRELEASE(shared); if(tmp) { - slot = SvIV(tmp); + slot = (shared_sv*) SvIV(tmp); RETVAL = newSVsv(SHAREDSvGET(slot)); Perl_sharedsv_thrcnt_dec(aTHX_ slot); } else { |