projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Integrate mainline
[p5sagit/p5-mst-13.2.git]
/
util.c
diff --git
a/util.c
b/util.c
index
d95f1e0
..
e79dc32
100644
(file)
--- 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) {