toke.c: S_parse_ident: simplify

The previous commit just moved some code and added comments.  This
commit takes advantage of the new place, and simplifies the code, using
the paradigm from the isWORDCHAR_A clause just below.

Author: khwilliamson

toke.c

@@ -10397,16 +10397,15 @@ S_parse_ident(pTHX_ const char *s, const char * const send,
         else if (stop_at_first_non_digit && isDIGIT_A(*s)) {
             bool is_zero = *s == '0';
             char *digit_start= *d;
-            *(*d)++ = *s++;
 
             /* Stop at the first non-digit */
-            while (s < send && isDIGIT(*s)) {
+            do {
+                *(*d)++ = *s++;
+
                 if (*d >= e) {
                     goto too_long;
                 }
-
-                *(*d)++ = *s++;
-            }
+            } while (isDIGIT_A(*s));
 
             /* Leading zeros are not permitted */
             if (is_zero && *d - digit_start > 1)