1 files changed, 1 insertions, 2 deletions
diff --git a/perl.c b/perl.c
index dfd5f83355..96f5b2dba2 100644
--- a/perl.c
+++ b/perl.c
@@ -957,8 +957,7 @@ perl_destruct(pTHXx)
 	    }
 	}
 	/* we know that type >= SVt_PV */
-	SvOOK_off(PL_mess_sv);
-	Safefree(SvPVX(PL_mess_sv));
+	SvPV_free(PL_mess_sv);
 	Safefree(SvANY(PL_mess_sv));
 	Safefree(PL_mess_sv);
 	PL_mess_sv = Nullsv;