Re: [PATCH perl@9424] isn't numeric warning

Message-Id: <200104091358.OAA24811@tempest.npl.co.uk>

(This corrects the case where the "isn't numeric" string contains \0s
and is longer than the temporary buffer, and contains \0 at the point
the string would be truncated by "...".)

p4raw-id: //depot/perl@9660

1 files changed, 1 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index 1737e8fcc8..a891a88e4a 100644
--- a/sv.c
+++ b/sv.c
@@ -1469,7 +1469,7 @@ S_not_a_number(pTHX_ SV *sv)
 	    *d++ = toCTRL(ch);
 	}
     }
-    if (*s) {
+    if (*s < end) {
 	*d++ = '.';
 	*d++ = '.';
 	*d++ = '.';