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. --- locale.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'locale.c') diff --git a/locale.c b/locale.c index 4f0f4476b5..a1fe449b60 100644 --- a/locale.c +++ b/locale.c @@ -675,7 +675,10 @@ Perl_init_i18nl10n(pTHX_ int printwarn) const bool locwarn = (printwarn > 1 || (printwarn && (! bad_lang_use_once - || grok_atou(bad_lang_use_once, NULL)))); + || ( + /* disallow with "" or "0" */ + *bad_lang_use_once + && strNE("0", bad_lang_use_once))))); bool done = FALSE; #ifdef WIN32 /* In some systems you can find out the system default locale -- cgit v1.2.1