From: Vincent Pit Date: Mon, 19 Jan 2009 20:05:36 +0000 (+0100) Subject: Silence a visibility warning X-Git-Tag: v0.11~3 X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=commitdiff_plain;h=85a4490d77f884d65a2dbf35d130d735811cc4bf Silence a visibility warning --- diff --git a/indirect.xs b/indirect.xs index c90f3b6..65b4a50 100644 --- a/indirect.xs +++ b/indirect.xs @@ -222,9 +222,9 @@ STATIC OP *indirect_ck_rv2sv(pTHX_ OP *o) { } default: if ((PL_opargs[type] & OA_CLASS_MASK) == OA_SVOP) { - SV *sv = cSVOPx_sv(op); - if (SvPOK(sv) && (SvTYPE(sv) >= SVt_PV)) - name = SvPV_const(sv, len); + SV *nsv = cSVOPx_sv(op); + if (SvPOK(nsv) && (SvTYPE(nsv) >= SVt_PV)) + name = SvPV_const(nsv, len); } } if (!name)