|
Lines 248-253
xspara_init (void)
Link Here
|
| 248 |
|
248 |
|
| 249 |
dTHX; |
249 |
dTHX; |
| 250 |
|
250 |
|
|
|
251 |
#if PERL_VERSION > 27 || (PERL_VERSION == 27 && PERL_SUBVERSION > 8) |
| 252 |
/* needed due to thread-safe locale handling in newer perls */ |
| 253 |
switch_to_global_locale(); |
| 254 |
#endif |
| 255 |
|
| 251 |
if (setlocale (LC_CTYPE, "en_US.UTF-8") |
256 |
if (setlocale (LC_CTYPE, "en_US.UTF-8") |
| 252 |
|| setlocale (LC_CTYPE, "en_US.utf8")) |
257 |
|| setlocale (LC_CTYPE, "en_US.utf8")) |
| 253 |
goto success; |
258 |
goto success; |
|
Lines 320-325
failure:
Link Here
|
| 320 |
{ |
325 |
{ |
| 321 |
success: ; |
326 |
success: ; |
| 322 |
free (utf8_locale); |
327 |
free (utf8_locale); |
|
|
328 |
#if PERL_VERSION > 27 || (PERL_VERSION == 27 && PERL_SUBVERSION > 8) |
| 329 |
/* needed due to thread-safe locale handling in newer perls */ |
| 330 |
sync_locale(); |
| 331 |
#endif |
| 323 |
/* |
332 |
/* |
| 324 |
fprintf (stderr, "tried to set LC_CTYPE to UTF-8.\n"); |
333 |
fprintf (stderr, "tried to set LC_CTYPE to UTF-8.\n"); |
| 325 |
fprintf (stderr, "character encoding is: %s\n", |
334 |
fprintf (stderr, "character encoding is: %s\n", |
| 326 |
- |
|
|
