From: Jarkko Hietaniemi <jhi@alpha.hut.fi>
Date: Mon, 7 Oct 1996 19:03:00 +0000 (+0300)
Subject: LC_COLLATE.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c28ee57b51a18db4c5f90f3baed91fcbf94aa608;p=p5sagit%2Fp5-mst-13.2.git

LC_COLLATE.

Big patch to add, document, and test LC_COLLATE support.

setlocale() allowed one argument only,
call to perl_init_fold() (in util.c) if setlocale() succeeded.
---

diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs
index 69849b1..def5fb1 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)