From ab585100568ac2a395d885f14372a2e6c3ea775b Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 30 Jun 2005 07:54:01 +0000
Subject: add setlocate() and LC_COLLATE for common.pm

---
 perl-install/c/stuff.xs.pl | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'perl-install/c')

diff --git a/perl-install/c/stuff.xs.pl b/perl-install/c/stuff.xs.pl
index 15c39bf04..4c95e5b0d 100644
--- a/perl-install/c/stuff.xs.pl
+++ b/perl-install/c/stuff.xs.pl
@@ -38,6 +38,7 @@ print '
 #include <net/route.h>
 #include <netinet/in.h>
 #include <linux/sockios.h>
+#include <locale.h>
 
 // for ethtool structs:
 typedef unsigned long long u64;
@@ -241,6 +242,13 @@ init_setlocale()
    setlocale(LC_ALL, "");
    setlocale(LC_NUMERIC, "C"); /* otherwise eval "1.5" returns 1 in fr_FR for example */
 
+char *
+setlocale(category, locale = 0) 
+    int     category
+    char *      locale
+
+
+
 char *
 bindtextdomain(domainname, dirname)
    char * domainname
@@ -773,6 +781,7 @@ get_iso_volume_ids(int fd)
        MS_MGC_VAL O_WRONLY O_RDWR O_CREAT O_NONBLOCK F_SETFL F_GETFL WNOHANG
        VT_ACTIVATE VT_WAITACTIVE VT_GETSTATE CDROM_LOCKDOOR CDROMEJECT CDROM_DRIVE_STATUS
        LOG_WARNING LOG_INFO LOG_LOCAL1
+       LC_COLLATE
        ) ],
 );
 
-- 
cgit v1.2.1