diff options
| -rw-r--r-- | perl-install/c/stuff.xs.pl | 9 |
1 files changed, 9 insertions, 0 deletions
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; @@ -242,6 +243,13 @@ init_setlocale() 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 char * dirname @@ -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 ) ], ); |