Must call Perl_croak() on the proto_perl, not the target perl, when failing during sv_inc()

1 files changed, 1 insertions, 1 deletions

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;