Remove some rendundant SvOOK_on tests

	Message-ID: <m3vhp94q7f.fsf@furu.g.aas.no>

p4raw-id: //depot/perl@1366

1 files changed, 1 insertions, 7 deletions

diff --git a/sv.c b/sv.c
index f37989eab4..2c9afc726e 100644
--- a/sv.c
+++ b/sv.c
@@ -1209,14 +1209,8 @@ sv_setnv(register SV *sv, double num)
     case SVt_PV:
     case SVt_PVIV:
 	sv_upgrade(sv, SVt_PVNV);
-	/* FALL THROUGH */
-    case SVt_PVNV:
-    case SVt_PVMG:
-    case SVt_PVBM:
-    case SVt_PVLV:
-	if (SvOOK(sv))
-	    (void)SvOOK_off(sv);
 	break;
+
     case SVt_PVGV:
 	if (SvFAKE(sv)) {
 	    sv_unglob(sv);