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)));
}
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)));
}
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)));
}