diff options
| author |  Elvio Basello | 2008-11-20 22:44:43 +0000 |
|---|---|---|
| committer | Elvio Basello | 2008-11-20 22:44:43 +0000 |
| commit | a1432e97374f5e12ea01b7e29da9fc64224b76e9 (patch) | |
| tree | 2f08c8db11cb0806dd585623256a1e533db79543 /src/modules/perlcore | |
| parent | reworked fix for #302, thank you thexception for suggesting a better way :) (diff) | |
| download | KVIrc-a1432e97374f5e12ea01b7e29da9fc64224b76e9.tar.gz KVIrc-a1432e97374f5e12ea01b7e29da9fc64224b76e9.tar.bz2 KVIrc-a1432e97374f5e12ea01b7e29da9fc64224b76e9.zip | |
half-fixed compilation warning
git-svn-id: https://svn.kvirc.de/svn/trunk/kvirc@2905 17fca916-40b9-46aa-a4ea-0a15b648b75c
Diffstat (limited to 'src/modules/perlcore')
| -rw-r--r-- | src/modules/perlcore/libkviperlcore.cpp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/modules/perlcore/libkviperlcore.cpp b/src/modules/perlcore/libkviperlcore.cpp index ad4fcc397..8a26608b8 100644 --- a/src/modules/perlcore/libkviperlcore.cpp +++ b/src/modules/perlcore/libkviperlcore.cpp @@ -134,7 +134,7 @@ extern "C" void boot_DynaLoader(pTHX_ CV* cv); extern "C" void xs_init(pTHX) { - char *file = __FILE__; + const char * file = __FILE__; // boot up the DynaLoader newXS("DynaLoader::boot_DynaLoader",boot_DynaLoader,file); // now bootstrap the KVIrc module @@ -163,8 +163,8 @@ bool KviPerlInterpreter::init() PERL_SET_CONTEXT(m_pInterpreter); PL_perl_destruct_level = 1; perl_construct(m_pInterpreter); - char * daArgs[] = { "yo", "-e", "0", "-w" }; - perl_parse(m_pInterpreter,xs_init,4,daArgs,NULL); + const char * daArgs[] = { "yo", "-e", "0", "-w" }; + perl_parse(m_pInterpreter,xs_init,4,(char **)daArgs,NULL); QString szInitCode; // this part of the code seems to be unnecessary |