From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 19 Nov 1998 17:38:03 +0000 (+0000)
Subject: mess_sv tweak for change#2249
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0372dbb61d521c83c2819b6bb21a87e9c2914f11;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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);