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/pp.c b/pp.c
index fa32601167..0761ff1eab 100644
--- a/pp.c
+++ b/pp.c
@@ -4025,8 +4025,7 @@ PP(pp_hslice)
 
         if (lval) {
             if (!svp || *svp == &PL_sv_undef) {
-                STRLEN n_a;
-                DIE(aTHX_ PL_no_helem, SvPV(keysv, n_a));
+                DIE(aTHX_ PL_no_helem_sv, keysv);
             }
             if (localizing) {
                 if (preeminent)