From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 23 Feb 2006 13:07:54 +0000 (+0000)
Subject: Remove un-needed case in Perl_sv_setsv_flags (sv_upgrade will cover
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d3234b8cb1d32555bdc11b560f44a3dee4933f3c;p=p5sagit%2Fp5-mst-13.2.git

Remove un-needed case in Perl_sv_setsv_flags (sv_upgrade will cover
this one for us).

p4raw-id: //depot/perl@27279
---

diff --git a/sv.c b/sv.c
index b4e69f2..ffe3772 100644
--- a/sv.c
+++ b/sv.c
@@ -3352,8 +3352,6 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV *sstr, I32 flags)
 		sv_upgrade(dstr, SVt_IV);
 		break;
 	    case SVt_NV:
-		sv_upgrade(dstr, SVt_PVNV);
-		break;
 	    case SVt_RV:
 	    case SVt_PV:
 		sv_upgrade(dstr, SVt_PVIV);