[perl.git] branch blead, updated. GitLive-blead-1179-g41cb7b2

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/41cb7b2bbf3884f70e9310a33e435deda35b8c46?hp=0e44608102d0bfb1d574ba4b0c350390ef1d459c>

- Log -----------------------------------------------------------------
commit 41cb7b2bbf3884f70e9310a33e435deda35b8c46
Author: Craig A. Berry <craigberry@mac.com>
Date:   Thu May 21 12:07:26 2009 -0500

    $? needs upgrade to PVLV when COMPLEX_STATUS is defined.
-----------------------------------------------------------------------

Summary of changes:
 mg.c |    2 ++
 1 files changed, 2 insertions(+), 0 deletions(-)

diff --git a/mg.c b/mg.c
index 2147407..c6f483e 100644
--- a/mg.c
+++ b/mg.c
@@ -977,6 +977,7 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg)
 	{
 	    sv_setiv(sv, (IV)STATUS_CURRENT);
 #ifdef COMPLEX_STATUS
+	    SvUPGRADE(sv, SVt_PVLV);
 	    LvTARGOFF(sv) = PL_statusvalue;
 	    LvTARGLEN(sv) = PL_statusvalue_vms;
 #endif
@@ -2557,6 +2558,7 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg)
     case '?':
 #ifdef COMPLEX_STATUS
 	if (PL_localizing == 2) {
+	    SvUPGRADE(sv, SVt_PVLV);
 	    PL_statusvalue = LvTARGOFF(sv);
 	    PL_statusvalue_vms = LvTARGLEN(sv);
 	}

--
Perl5 Master Repository

• [perl.git] branch blead, updated. GitLive-blead-1179-g41cb7b2 by Craig A. Berry