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 (file)
--- 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;