From: Robin Barker <RMBarker@cpan.org>
Date: Mon, 9 Apr 2001 14:58:04 +0000 (+0100)
Subject: Re: [PATCH perl@9424] isn't numeric warning
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=96fa62ad548d6e808f1530052e817f845408c4bb;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/sv.c b/sv.c
index 1737e8f..a891a88 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++ = '.';