summaryrefslogtreecommitdiffstats
path: root/perl-install/Newt/Newt.xs
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/Newt/Newt.xs')
-rw-r--r--perl-install/Newt/Newt.xs10
1 files changed, 9 insertions, 1 deletions
diff --git a/perl-install/Newt/Newt.xs b/perl-install/Newt/Newt.xs
index e4ad81d62..7b2317cc7 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();
@@ -22,6 +23,9 @@ typedef newtGrid Newt__Grid;
MODULE = Newt PACKAGE = Newt PREFIX = newt
+PROTOTYPES: DISABLE
+
+
void
DESTROY()
CODE:
@@ -30,7 +34,11 @@ DESTROY()
}
int
-newtInit()
+newtInit(setlocale)
+ int setlocale
+ CODE:
+ SLsmg_Setlocale = setlocale;
+ newtInit();
int
newtFinished()