From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 23 Mar 2002 01:22:10 +0000 (+0000)
Subject: Purify: Array bounds read: reading one byte before the buffer.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=82e2bc1b5ed8357f0ef7e3beabe4a224aba43182;p=p5sagit%2Fp5-mst-13.2.git

Purify: Array bounds read: reading one byte before the buffer.

p4raw-id: //depot/perl@15437
---

diff --git a/util.c b/util.c
index d95f1e0..e79dc32 100644
--- a/util.c
+++ b/util.c
@@ -4018,7 +4018,7 @@ Perl_new_vstring(pTHX_ char *s, SV *sv)
 		 /* this is atoi() that tolerates underscores */
 		 char *end = pos;
 		 UV mult = 1;
-		 if ( *(s-1) == '_') {
+		 if ( s > pos && *(s-1) == '_') {
 		      mult = 10;
 		 }
 		 while (--end >= s) {