From 96e440d2eb546f4493feffce002f2ec8886f13a3 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Mon, 21 Jul 2014 10:50:54 -0400 Subject: Use grok_atou instead of atoi. Remaining atoi() uses include at least: ext/DynaLoader/dl_aix.xs, os2/os2.c, vms/vms.c --- malloc.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'malloc.c') 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; -- cgit v1.2.1