From: Roderick Schertler <roderick@argon.org>
Date: Tue, 11 Jul 2000 13:55:05 +0000 (-0400)
Subject: Fix for
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d9546839ca7433173047e6c940e0dfe4c8f4f863;p=p5sagit%2Fp5-mst-13.2.git

Fix for
Subject: [ID 20000711.005] spurious uninit warning with msgrcv()
Message-Id: <200007111755.NAA05077@jones.argon.org>

p4raw-id: //depot/cfgperl@6357
---

diff --git a/doio.c b/doio.c
index d253f98..d65bfb4 100644
--- a/doio.c
+++ b/doio.c
@@ -1921,6 +1921,9 @@ Perl_do_msgrcv(pTHX_ SV **mark, SV **sp)
 
     id = SvIVx(*++mark);
     mstr = *++mark;
+    /* suppress warning when reading into undef var --jhi */
+    if (! SvOK(mstr))
+	sv_setpvn(mstr, "", 0);
     msize = SvIVx(*++mark);
     mtype = (long)SvIVx(*++mark);
     flags = SvIVx(*++mark);