Perl_croak uses perl's printf, so can pass in SVs direct - no need for

SvPV and a %s format.

p4raw-id: //depot/perl@24420

1 files changed, 1 insertions, 2 deletions

diff --git a/mg.c b/mg.c
index 8fa8ae9f48..21a3747e6c 100644
--- a/mg.c
+++ b/mg.c
@@ -1927,12 +1927,11 @@ Perl_vivify_defelem(pTHX_ SV *sv)
 	return;
     if (mg->mg_obj) {
 	SV *ahv = LvTARG(sv);
-	STRLEN n_a;
         HE *he = hv_fetch_ent((HV*)ahv, mg->mg_obj, TRUE, 0);
         if (he)
             value = HeVAL(he);
 	if (!value || value == &PL_sv_undef)
-	    Perl_croak(aTHX_ PL_no_helem, SvPV(mg->mg_obj, n_a));
+	    Perl_croak(aTHX_ PL_no_helem_sv, mg->mg_obj);
     }
     else {
 	AV* av = (AV*)LvTARG(sv);