summaryrefslogtreecommitdiff
path: root/malloc.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2014-07-21 10:50:54 -0400
committerJarkko Hietaniemi <jhi@iki.fi>2014-07-22 21:31:41 -0400
commit96e440d2eb546f4493feffce002f2ec8886f13a3 (patch)
tree1b0634ebad52cafa2d83e01574eb013945a069b9 /malloc.c
parent6313e54401f5531a23184b7afaaf6bc7cd4a81ec (diff)
downloadperl-96e440d2eb546f4493feffce002f2ec8886f13a3.tar.gz
Use grok_atou instead of atoi.
Remaining atoi() uses include at least: ext/DynaLoader/dl_aix.xs, os2/os2.c, vms/vms.c
Diffstat (limited to 'malloc.c')
-rw-r--r--malloc.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/malloc.c b/malloc.c
index a99663ef56..73a0480f52 100644
--- a/malloc.c
+++ b/malloc.c
@@ -1824,7 +1824,7 @@ Perl_mfree(Malloc_t where)
if (bad_free_warn == -1) {
dTHX;
char *pbf = PerlEnv_getenv("PERL_BADFREE");
- bad_free_warn = (pbf) ? atoi(pbf) : 1;
+ bad_free_warn = (pbf) ? grok_atou(pbf, NULL) : 1;
}
if (!bad_free_warn)
return;
@@ -1922,7 +1922,7 @@ Perl_realloc(void *mp, size_t nbytes)
if (bad_free_warn == -1) {
dTHX;
char *pbf = PerlEnv_getenv("PERL_BADFREE");
- bad_free_warn = (pbf) ? atoi(pbf) : 1;
+ bad_free_warn = (pbf) ? grok_atou(pbf, NULL) : 1;
}
if (!bad_free_warn)
return NULL;