diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-04-06 16:32:50 +0200 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2006-04-06 14:55:40 +0000 |
| commit | 4ab59fccd2ed87367a9c02575d4dd0b9d6b8b95a (patch) | |
| tree | 29898107b2a04ac2f81e4f4b63b57f96b5fb3477 /mg.c | |
| parent | 8b9f58b627da37ee6eaf64a4ca20998159a2a0b7 (diff) | |
| download | perl-4ab59fccd2ed87367a9c02575d4dd0b9d6b8b95a.tar.gz | |
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
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 |