The revenge of the consts

Message-ID: <20070503054554.GA30975@petdance.com>

p4raw-id: //depot/perl@31123

1 files changed, 2 insertions, 3 deletions

diff --git a/numeric.c b/numeric.c
index 20fd7bd2df..34264f3298 100644
--- a/numeric.c
+++ b/numeric.c
@@ -953,10 +953,9 @@ Perl_my_atof2(pTHX_ const char* orig, NV* value)
 	else if (!seen_dp && GROK_NUMERIC_RADIX(&s, send)) {
 	    seen_dp = 1;
 	    if (sig_digits > MAX_SIG_DIGITS) {
-		++s;
-		while (isDIGIT(*s)) {
+		do {
 		    ++s;
-		}
+		} while (isDIGIT(*s));
 		break;
 	    }
 	}