From ce5030a2e3d52efc311b379279a2db8219fc84b1 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 8 May 2005 22:09:18 +0000
Subject: 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
---
 mg.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'mg.c')

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);
-- 
cgit v1.2.1