diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2014-07-21 10:50:54 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2014-07-22 21:31:41 -0400 |
| commit | 96e440d2eb546f4493feffce002f2ec8886f13a3 (patch) | |
| tree | 1b0634ebad52cafa2d83e01574eb013945a069b9 /malloc.c | |
| parent | 6313e54401f5531a23184b7afaaf6bc7cd4a81ec (diff) | |
| download | perl-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.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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; |