From: Chip Salzenberg <chip@pobox.com>
Date: Thu, 27 Nov 1997 15:44:02 +0000 (-0500)
Subject: [win32] apply missing pieces from:
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ded42b9f771444bf991e51e9d91e40238f0181e2;p=p5sagit%2Fp5-mst-13.2.git

[win32] apply missing pieces from:
	Message-Id: <199711272044.PAA12102@nielsenmedia.com>
	Subject: [PATCH] Improved LVALUE patch

p4raw-id: //depot/win32/perl@609
---

diff --git a/sv.c b/sv.c
index 8bb6c14..2c5f4df 100644
--- a/sv.c
+++ b/sv.c
@@ -1939,7 +1939,6 @@ sv_setsv(SV *dstr, register SV *sstr)
 	if (dtype < SVt_PVNV)
 	    sv_upgrade(dstr, SVt_PVNV);
 	break;
-
     case SVt_PVAV:
     case SVt_PVHV:
     case SVt_PVCV:
@@ -1990,8 +1989,10 @@ sv_setsv(SV *dstr, register SV *sstr)
 		    goto glob_assign;
 	    }
 	}
-	if (dtype < stype)
-	    sv_upgrade(dstr, stype);
+	if (stype == SVt_PVLV)
+	    SvUPGRADE(dstr, SVt_PVNV);
+	else
+	    SvUPGRADE(dstr, stype);
     }
 
     sflags = SvFLAGS(sstr);