mess_sv tweak for change#2249

p4raw-link: @2249 on //depot/perl: e72dc28c8f6f33daa2b69b80b6322e338e999561

p4raw-id: //depot/perl@2252

diff --git a/util.c b/util.c
index 56016f8..820f193 100644 (file)
--- a/util.c
+++ b/util.c
@@ -1194,6 +1194,9 @@ mess_alloc(void)
     if (!PL_dirty)
        return sv_2mortal(newSVpvn("",0));
 
+    if (PL_mess_sv)
+       return PL_mess_sv;
+
     /* Create as PVMG now, to avoid any upgrading later */
     New(905, sv, 1, SV);
     Newz(905, any, 1, XPVMG);