diff options
| author | Chip Salzenberg <chip@pobox.com> | 1997-11-27 10:44:02 -0500 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-03-02 01:23:56 +0000 |
| commit | ded42b9f771444bf991e51e9d91e40238f0181e2 (patch) | |
| tree | 9ccafde84b1b99b81b648b425d5ca82844815eec /sv.c | |
| parent | 883ffac3a9d9363885bd84d399d87bd820d49eab (diff) | |
| download | perl-ded42b9f771444bf991e51e9d91e40238f0181e2.tar.gz | |
[win32] apply missing pieces from:
Message-Id: <199711272044.PAA12102@nielsenmedia.com>
Subject: [PATCH] Improved LVALUE patch
p4raw-id: //depot/win32/perl@609
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -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); |