diff options
Diffstat (limited to 'miniperlmain.c')
| -rw-r--r-- | miniperlmain.c | 50 |
1 files changed, 4 insertions, 46 deletions
diff --git a/miniperlmain.c b/miniperlmain.c index 1179a5f668..89087bd247 100644 --- a/miniperlmain.c +++ b/miniperlmain.c @@ -20,56 +20,14 @@ static void xs_init _((void)); static PerlInterpreter *my_perl; int -perl_init_i18nl14n(printwarn) /* XXX move to perl.c */ - int printwarn; -{ - int ok = 1; - /* returns - * 1 = set ok or not applicable, - * 0 = fallback to C locale, - * -1 = fallback to C locale failed - */ -#if defined(HAS_SETLOCALE) && defined(LC_CTYPE) - char * lang = getenv("LANG"); - char * lc_all = getenv("LC_ALL"); - char * lc_ctype = getenv("LC_CTYPE"); - int i; - - if (setlocale(LC_CTYPE, "") == NULL && (lc_all || lc_ctype || lang)) { - if (printwarn) { - fprintf(stderr, "warning: setlocale(LC_CTYPE, \"\") failed.\n"); - fprintf(stderr, - "warning: LC_ALL = \"%s\", LC_CTYPE = \"%s\", LANG = \"%s\",\n", - lc_all ? lc_all : "(null)", - lc_ctype ? lc_ctype : "(null)", - lang ? lang : "(null)" - ); - fprintf(stderr, "warning: falling back to the \"C\" locale.\n"); - } - ok = 0; - if (setlocale(LC_CTYPE, "C") == NULL) - ok = -1; - } - - for (i = 0; i < 256; i++) { - if (isUPPER(i)) fold[i] = toLOWER(i); - else if (isLOWER(i)) fold[i] = toUPPER(i); - else fold[i] = i; - } -#endif - return ok; -} - - -int -#ifndef CAN_PROTOTYPE +#ifdef CAN_PROTOTYPE +main(int argc, char **argv, char **env) +#else main(argc, argv, env) int argc; char **argv; char **env; -#else /* def(CAN_PROTOTYPE) */ -main(int argc, char **argv, char **env) -#endif /* def(CAN_PROTOTYPE) */ +#endif { int exitstatus; |