From: Robin Barker <RMBarker@cpan.org>
Date: Fri, 16 May 2003 17:16:57 +0000 (+0100)
Subject: RE: maint snapshot @ 19525
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fd30fd187c5d5b74a2ce5f760a0d68c28256528e;p=p5sagit%2Fp5-mst-13.2.git

RE: maint snapshot @ 19525
Message-ID: <533D273D4014D411AB1D00062938C4D90404651D@hotel.npl.co.uk>

(Part #2: the hv.c SVf)

p4raw-id: //depot/perl@19528
---

diff --git a/hv.c b/hv.c
index 6544e08..52c6aef 100644
--- a/hv.c
+++ b/hv.c
@@ -1717,8 +1717,8 @@ Perl_hv_clear(pTHX_ HV *hv)
 		    if (HeVAL(entry) && SvREADONLY(HeVAL(entry))) {
 			SV* keysv = hv_iterkeysv(entry);
 			Perl_croak(aTHX_
-		"Attempt to delete readonly key '%_' from a restricted hash",
-				keysv);
+	"Attempt to delete readonly key '%"SVf"' from a restricted hash",
+				   keysv);
 		    }
 		    SvREFCNT_dec(HeVAL(entry));
 		    HeVAL(entry) = &PL_sv_undef;