From 16d42ec4616a84b046cd71f805a009b792a93ec9 Mon Sep 17 00:00:00 2001 From: Michele Calgaro Date: Sat, 21 Feb 2026 11:03:45 +0900 Subject: Fix conversion of TQString to const char* (modules) Signed-off-by: Michele Calgaro --- src/modules/perlcore/libkviperlcore.cpp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/modules/perlcore/libkviperlcore.cpp') 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 -- cgit v1.2.3