From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 6 Apr 2006 14:32:50 +0000 (+0200)
Subject: Re: Smoke [5.9.4] 27728 FAIL(F) MSWin32 WinXP/.Net SP2 (x86/2 cpu)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4ab59fccd2ed87367a9c02575d4dd0b9d6b8b95a;p=p5sagit%2Fp5-mst-13.2.git

Re: Smoke [5.9.4] 27728 FAIL(F) MSWin32 WinXP/.Net SP2 (x86/2 cpu)
Message-ID: <20060406143250.5a7de4b8@grubert.mandriva.com>

p4raw-id: //depot/perl@27731
---

diff --git a/mg.c b/mg.c
index 82f63c0..830e039 100644
--- a/mg.c
+++ b/mg.c
@@ -1053,7 +1053,7 @@ Perl_magic_setenv(pTHX_ SV *sv, MAGIC *mg)
     if (!len) {
 	SV ** const valp = hv_fetch(GvHVn(PL_envgv), ptr, klen, FALSE);
 	if (valp)
-	    s = SvPV_const(*valp, len);
+	    s = SvOK(*valp) ? SvPV_const(*valp, len) : "";
     }
 #endif