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 (file)
--- 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);