diff options
Diffstat (limited to 'ext/threads/shared')
| -rw-r--r-- | ext/threads/shared/shared.pm | 2 | ||||
| -rw-r--r-- | ext/threads/shared/shared.xs | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/ext/threads/shared/shared.pm b/ext/threads/shared/shared.pm index 10d2af9df8..f8d04e22ff 100644 --- a/ext/threads/shared/shared.pm +++ b/ext/threads/shared/shared.pm @@ -141,7 +141,7 @@ C<share>, C<lock>, C<unlock>, C<cond_wait>, C<cond_signal>, C<cond_broadcast> =item share VARIABLE -C<share> takes a value and marks it as shared, you can share an scalar, array, hash +C<share> takes a value and marks it as shared, you can share a scalar, array, hash scalar ref, array ref and hash ref, C<share> will return the shared value. C<share> will traverse up references exactly I<one> level. diff --git a/ext/threads/shared/shared.xs b/ext/threads/shared/shared.xs index 92e24d4e4b..cf655cbc58 100644 --- a/ext/threads/shared/shared.xs +++ b/ext/threads/shared/shared.xs @@ -323,7 +323,7 @@ STORE(self, index, value) if(SvROK(value)) { shared_sv* target = Perl_sharedsv_find(aTHX_ SvRV(value)); if(!target) { - Perl_croak(aTHX_ "You cannot assign a non shared reference to an shared array"); + Perl_croak(aTHX_ "You cannot assign a non shared reference to a shared array"); } value = newRV_noinc(newSViv(PTR2IV(target))); } @@ -396,7 +396,7 @@ PUSH(self, ...) if(SvROK(tmp)) { shared_sv* target = Perl_sharedsv_find(aTHX_ SvRV(tmp)); if(!target) { - Perl_croak(aTHX_ "You cannot assign a non shared reference to an shared array"); + Perl_croak(aTHX_ "You cannot assign a non shared reference to a shared array"); } tmp = newRV_noinc(newSViv(PTR2IV(target))); } @@ -425,7 +425,7 @@ UNSHIFT(self, ...) if(SvROK(tmp)) { shared_sv* target = Perl_sharedsv_find(aTHX_ SvRV(tmp)); if(!target) { - Perl_croak(aTHX_ "You cannot assign a non shared reference to an shared array"); + Perl_croak(aTHX_ "You cannot assign a non shared reference to a shared array"); } tmp = newRV_noinc(newSViv(PTR2IV(target))); } |