diff options
| -rw-r--r-- | ext/POSIX/POSIX.xs | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs index 69849b1bcb..def5fb1235 100644 --- a/ext/POSIX/POSIX.xs +++ b/ext/POSIX/POSIX.xs @@ -2719,9 +2719,16 @@ localeconv() RETVAL char * -setlocale(category, locale) +setlocale(category, locale = 0) int category char * locale + CODE: + RETVAL = setlocale(category, locale); + if (RETVAL) + perl_init_fold(); + OUTPUT: + RETVAL + double acos(x) |