X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2Fthreads%2Fshared%2Fshared.xs;h=477cdb48468c716ffefaf44b2516bcb7212504ea;hb=436c6dd385a3b29cadf4fa091af1c55eed665e29;hp=344221324fa2c1b7c86cf3b4f719510a48181be5;hpb=810d9308ad3234b6d649cdfae5bbe4bf70e41ce7;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/threads/shared/shared.xs b/ext/threads/shared/shared.xs
index 3442213..477cdb4 100644
--- a/ext/threads/shared/shared.xs
+++ b/ext/threads/shared/shared.xs
@@ -262,7 +262,7 @@ Perl_sharedsv_associate(pTHX_ SV **psv, SV *ssv, shared_sv *data)
 
     /* Try shared SV as 1st choice */
     if (!data && ssv && SvTYPE(ssv) >= SVt_PVMG) {
-	if (mg = mg_find(ssv, PERL_MAGIC_ext)) {
+	if( (mg = mg_find(ssv, PERL_MAGIC_ext)) ){
 	    data = (shared_sv *) mg->mg_ptr;
 	}
     }
@@ -916,7 +916,7 @@ CODE:
 	shared_sv *shared;
 	if(SvROK(ref))
 	    ref = SvRV(ref);
-	if (shared = Perl_sharedsv_find(aTHX_ ref)) {
+	if( (shared = Perl_sharedsv_find(aTHX_ ref)) ){
 	    ST(0) = sv_2mortal(newSViv(PTR2IV(shared)));
 	    XSRETURN(1);
 	}
@@ -930,17 +930,17 @@ CODE:
 	shared_sv *shared;
 	if(SvROK(ref))
 	    ref = SvRV(ref);
-	if (shared = Perl_sharedsv_find(aTHX_ ref)) {
+	if( (shared = Perl_sharedsv_find(aTHX_ ref)) ){
 	  if (SHAREDSvPTR(shared)) {
 	    ST(0) = sv_2mortal(newSViv(SvREFCNT(SHAREDSvPTR(shared))));
 	    XSRETURN(1);
 	  }
 	  else {
-	     Perl_warn(aTHX_ "%_ s=%p has no shared SV",ST(0),shared);
+	     Perl_warn(aTHX_ "%" SVf " s=%p has no shared SV",ST(0),shared);
 	  }
 	}
 	else {
-	     Perl_warn(aTHX_ "%_ is not shared",ST(0));
+	     Perl_warn(aTHX_ "%" SVf " is not shared",ST(0));
 	}
 	XSRETURN_UNDEF;