diff options
| author | Michele Calgaro <michele.calgaro@yahoo.it> | 2026-02-21 11:03:45 +0900 |
|---|---|---|
| committer | Michele Calgaro <michele.calgaro@yahoo.it> | 2026-02-22 20:26:55 +0900 |
| commit | 16d42ec4616a84b046cd71f805a009b792a93ec9 (patch) | |
| tree | 1522d1dd06ecd32e6c61d142b88d4b4814b83950 /src/modules/perlcore/libkviperlcore.cpp | |
| parent | a09cecfffd5151adfc50e343c821ed8ebdd1ab87 (diff) | |
| download | kvirc-16d42ec4616a84b046cd71f805a009b792a93ec9.tar.gz kvirc-16d42ec4616a84b046cd71f805a009b792a93ec9.zip | |
Fix conversion of TQString to const char* (modules)
Signed-off-by: Michele Calgaro <michele.calgaro@yahoo.it>
Diffstat (limited to 'src/modules/perlcore/libkviperlcore.cpp')
| -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 a7c9a282..e4a64f7f 100644 --- a/src/modules/perlcore/libkviperlcore.cpp +++ b/src/modules/perlcore/libkviperlcore.cpp @@ -125,7 +125,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 @@ -154,8 +154,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); TQString szInitCode; // this part of the code seems to be unnecessary |