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

p4raw-id: //depot/perl@15437

1 files changed, 1 insertions, 1 deletions

diff --git a/util.c b/util.c
index d95f1e00e1..e79dc32f09 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) {