diff options
Diffstat (limited to 'ext/threads')
| -rw-r--r-- | ext/threads/shared/shared.pm | 2 | ||||
| -rw-r--r-- | ext/threads/shared/shared.xs | 10 | ||||
| -rwxr-xr-x | ext/threads/threads.pm | 2 |
3 files changed, 7 insertions, 7 deletions
diff --git a/ext/threads/shared/shared.pm b/ext/threads/shared/shared.pm index dd6a705813..0a4bd04f8d 100644 --- a/ext/threads/shared/shared.pm +++ b/ext/threads/shared/shared.pm @@ -7,7 +7,7 @@ BEGIN { require Exporter; our @ISA = qw(Exporter); our @EXPORT = qw(share cond_wait cond_timedwait cond_broadcast cond_signal); - our $VERSION = '0.92'; + our $VERSION = '0.93'; if ($threads::threads) { *cond_wait = \&cond_wait_enabled; diff --git a/ext/threads/shared/shared.xs b/ext/threads/shared/shared.xs index 1ac3dce832..dcaa7e7a9e 100644 --- a/ext/threads/shared/shared.xs +++ b/ext/threads/shared/shared.xs @@ -361,7 +361,7 @@ Perl_sharedsv_associate(pTHX_ SV **psv, SV *ssv, shared_sv *data) char* stash_ptr = SvPV((SV*) SvSTASH(ssv), len); HV* stash = gv_stashpvn(stash_ptr, len, TRUE); SvOBJECT_on(sv); - SvSTASH(sv) = (HV*)SvREFCNT_inc(stash); + SvSTASH_set(sv, (HV*)SvREFCNT_inc(stash)); } } break; @@ -503,7 +503,7 @@ sharedsv_scalar_mg_get(pTHX_ SV *sv, MAGIC *mg) SV *obj = Nullsv; Perl_sharedsv_associate(aTHX_ &obj, SvRV(SHAREDSvPTR(shared)), NULL); sv_setsv_nomg(sv, &PL_sv_undef); - SvRV(sv) = obj; + SvRV_set(sv, obj); SvROK_on(sv); } @@ -531,7 +531,7 @@ sharedsv_scalar_store(pTHX_ SV *sv, shared_sv *shared) if(SvOBJECT(SvRV(sv))) { SV* fake_stash = newSVpv(HvNAME(SvSTASH(SvRV(sv))),0); SvOBJECT_on(SHAREDSvPTR(target)); - SvSTASH(SHAREDSvPTR(target)) = (HV*)fake_stash; + SvSTASH_set(SHAREDSvPTR(target), (HV*)fake_stash); } CALLER_CONTEXT; } @@ -546,7 +546,7 @@ sharedsv_scalar_store(pTHX_ SV *sv, shared_sv *shared) if(SvOBJECT(sv)) { SV* fake_stash = newSVpv(HvNAME(SvSTASH(sv)),0); SvOBJECT_on(SHAREDSvPTR(shared)); - SvSTASH(SHAREDSvPTR(shared)) = (HV*)fake_stash; + SvSTASH_set(SHAREDSvPTR(shared), (HV*)fake_stash); } CALLER_CONTEXT; } @@ -643,7 +643,7 @@ sharedsv_elem_mg_FETCH(pTHX_ SV *sv, MAGIC *mg) SV *obj = Nullsv; Perl_sharedsv_associate(aTHX_ &obj, SvRV(*svp), NULL); sv_setsv_nomg(sv, &PL_sv_undef); - SvRV(sv) = obj; + SvRV_set(sv, obj); SvROK_on(sv); SvSETMAGIC(sv); } diff --git a/ext/threads/threads.pm b/ext/threads/threads.pm index dcd2aa015c..22180ad577 100755 --- a/ext/threads/threads.pm +++ b/ext/threads/threads.pm @@ -50,7 +50,7 @@ our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); our @EXPORT = qw( async ); -our $VERSION = '1.05'; +our $VERSION = '1.06'; # || 0 to ensure compatibility with previous versions |