From: Artur Bergman <sky@nanisky.com>
Date: Thu, 6 Feb 2003 09:39:24 +0000 (+0000)
Subject: Patch from Richard Soderberg, cleanup the code a bit and comment
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a4bfb2902c7fff0a7b1981922fca3ac7c05b580a;p=p5sagit%2Fp5-mst-13.2.git

Patch from Richard Soderberg, cleanup the code a bit and comment
why we are not using SvOOK_on.

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

diff --git a/sv.c b/sv.c
index 89792cf..6eef626 100644
--- a/sv.c
+++ b/sv.c
@@ -4417,9 +4417,12 @@ Perl_sv_chop(pTHX_ register SV *sv, register char *ptr)
 	    *SvEND(sv) = '\0';
 	}
 	SvIVX(sv) = 0;
-	SvFLAGS(sv) |= SVf_OOK;
+	/* Same SvOOK_on but SvOOK_on does a SvIOK_off
+	   and we do that anyway inside the SvNIOK_off
+	*/
+	SvFLAGS(sv) |= SVf_OOK; 
     }
-    SvFLAGS(sv) &= ~(SVf_IOK|SVf_NOK|SVp_IOK|SVp_NOK|SVf_IVisUV);
+    SvNIOK_off(sv);
     delta = ptr - SvPVX(sv);
     SvLEN(sv) -= delta;
     SvCUR(sv) -= delta;