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;