diff options
| author |  Fabio Bas | 2009-08-23 10:48:48 +0000 |
|---|---|---|
| committer | Fabio Bas | 2009-08-23 10:48:48 +0000 |
| commit | 0d80e8d547034c0a118678db753760bc06e7a62b (patch) | |
| tree | b1f88437c90118571c405b73e8d4aafbc1ab88d9 /src/modules/perlcore | |
| parent | check if the compiler supports -fvisibility-inlines-hidden flag (unavailable ... (diff) | |
| download | KVIrc-0d80e8d547034c0a118678db753760bc06e7a62b.tar.gz KVIrc-0d80e8d547034c0a118678db753760bc06e7a62b.tar.bz2 KVIrc-0d80e8d547034c0a118678db753760bc06e7a62b.zip | |
probable fix for #521
git-svn-id: https://svn.kvirc.de/svn/trunk/kvirc@3424 17fca916-40b9-46aa-a4ea-0a15b648b75c
Diffstat (limited to 'src/modules/perlcore')
| -rw-r--r-- | src/modules/perlcore/libkviperlcore.cpp | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/modules/perlcore/libkviperlcore.cpp b/src/modules/perlcore/libkviperlcore.cpp index 50e4c6a55..98bdecb86 100644 --- a/src/modules/perlcore/libkviperlcore.cpp +++ b/src/modules/perlcore/libkviperlcore.cpp @@ -159,10 +159,7 @@ extern "C" void xs_init(pTHX) bool KviPerlInterpreter::init() { if(m_pInterpreter)done(); - int daArgc = 4; const char * daArgs[] = { "yo", "-e", "0", "-w" }; - char ** daEnv=NULL; - PERL_SYS_INIT3(&daArgc,(char ***)&daArgs,&daEnv); m_pInterpreter = perl_alloc(); if(!m_pInterpreter)return false; PERL_SET_CONTEXT(m_pInterpreter); @@ -391,6 +388,10 @@ static bool perlcore_module_init(KviModule * m) #ifdef COMPILE_PERL_SUPPORT g_pInterpreters = new KviPointerHashTable<QString,KviPerlInterpreter>(17,false); g_pInterpreters->setAutoDelete(false); + int daArgc = 4; + const char * daArgs[] = { "yo", "-e", "0", "-w" }; + char ** daEnv=NULL; + PERL_SYS_INIT3(&daArgc,(char ***)&daArgs,&daEnv); return true; #else // !COMPILE_PERL_SUPPORT return false; |