From 5e2af7a00aef25d0f21505fb700447117af982cc Mon Sep 17 00:00:00 2001
From: "Paul \"LeoNerd\" Evans" <leonerd@leonerd.org.uk>
Date: Sun, 12 Feb 2023 18:21:29 +0000
Subject: Must call Perl_croak() on the proto_perl, not the target perl, when
 failing during sv_inc()

---
 sv.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'sv.c')

diff --git a/sv.c b/sv.c
index ce1cc03316..d1cd37ab51 100644
--- a/sv.c
+++ b/sv.c
@@ -14556,7 +14556,7 @@ S_sv_dup_common(pTHX_ const SV *const ssv, CLONE_PARAMS *const param)
 
             switch (sv_type) {
             default:
-                Perl_croak(aTHX_ "Bizarre SvTYPE [%" IVdf "]", (IV)SvTYPE(ssv));
+                Perl_croak(param->proto_perl, "Bizarre SvTYPE [%" IVdf "]", (IV)SvTYPE(ssv));
                 NOT_REACHED; /* NOTREACHED */
                 break;
 
-- 
cgit v1.2.1