1 files changed, 1 insertions, 1 deletions
diff --git a/sv.c b/sv.c
index 61bf3e10c9..472d69c4e5 100644
--- a/sv.c
+++ b/sv.c
@@ -12882,7 +12882,7 @@ Perl_sv_vcatpvfn_flags(pTHX_ SV *const sv, const char *const pat, const STRLEN p
                     elen = quadmath_snprintf(PL_efloatbuf, PL_efloatsize,
                                              qfmt, nv);
                     if ((IV)elen == -1) {
-                        if (qfmt != qptr)
+                        if (qfmt != ptr)
                             SAVEFREEPV(qfmt);
                         Perl_croak_nocontext("panic: quadmath_snprintf failed, format \"%s\"", qfmt);
                     }