diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2015-02-23 16:48:15 +0000 |
|---|---|---|
| committer | Hugo van der Sanden <hv@crypt.org> | 2015-03-09 22:15:46 +0000 |
| commit | 22ff313068aa37b1a24855e760e71ee9a20a1a90 (patch) | |
| tree | 09da195258e4a85e42a39dd24d7c60c849409ef1 /malloc.c | |
| parent | 35cd12d12a5a5777098caf722f8748b39c3be45f (diff) | |
| download | perl-22ff313068aa37b1a24855e760e71ee9a20a1a90.tar.gz | |
[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.
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) ? 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; |