From 22ff313068aa37b1a24855e760e71ee9a20a1a90 Mon Sep 17 00:00:00 2001 From: Hugo van der Sanden Date: Mon, 23 Feb 2015 16:48:15 +0000 Subject: [perl #123814] replace grok_atou with grok_atoUV Some questions and loose ends: XXX gv.c:S_gv_magicalize - why are we using SSize_t for paren? XXX mg.c:Perl_magic_set - need appopriate error handling for $) XXX regcomp.c:S_reg - need to check if we do the right thing if parno was not grokked Perl_get_debug_opts should probably return something unsigned; not sure if that's something we can change. --- malloc.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'malloc.c') diff --git a/malloc.c b/malloc.c index 58bec6486f..a797e7e86b 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) ? grok_atou(pbf, NULL) : 1; + bad_free_warn = (pbf) ? strNE("0", pbf) : 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) ? grok_atou(pbf, NULL) : 1; + bad_free_warn = (pbf) ? strNE("0", pbf) : 1; } if (!bad_free_warn) return NULL; -- cgit v1.2.1