grok not grocking correctly

Message-ID: <20010703001908.H59620@plum.flirble.org>

p4raw-id: //depot/perl@11112

diff --git a/numeric.c b/numeric.c
index 1aadce5..00d58bc 100644 (file)
--- a/numeric.c
+++ b/numeric.c
@@ -448,7 +448,7 @@ Perl_grok_number(pTHX_ const char *pv, STRLEN len, UV *valuep)
                                           break;
                                       }
                                       if (digit >= 0 && digit <= 9
-                                          && !(s < send)) {
+                                          && (s < send)) {
                                         /* value overflowed.
                                            skip the remaining digits, don't
                                            worry about setting *valuep.  */