From: Craig A. Berry <craigberry@mac.com>
Date: Thu, 21 May 2009 17:07:26 +0000 (-0500)
Subject: $? needs upgrade to PVLV when COMPLEX_STATUS is defined.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=41cb7b2bbf3884f70e9310a33e435deda35b8c46;p=p5sagit%2Fp5-mst-13.2.git

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

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