From 76f428940c3a60dafac5567bad44a4f41e0565a6 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 3 Sep 2004 05:31:38 +0000
Subject: don't let slang call setlocale(), we do it ourselves

---
 perl-install/Newt/Newt.xs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'perl-install/Newt/Newt.xs')

diff --git a/perl-install/Newt/Newt.xs b/perl-install/Newt/Newt.xs
index e4ad81d62..fee23d388 100644
--- a/perl-install/Newt/Newt.xs
+++ b/perl-install/Newt/Newt.xs
@@ -2,6 +2,7 @@
 #include "perl.h"
 #include "XSUB.h"
 #include <newt.h>
+#include <slang/slang.h>
 
 static void suspend() {
   newtSuspend();
@@ -31,6 +32,9 @@ DESTROY()
 
 int
 newtInit()
+  CODE:
+  SLsmg_Setlocale = 0;
+  newtInit();
 
 int
 newtFinished()
-- 
cgit v1.2.1