diff options
| author |  Elvio Basello | 2011-01-10 18:36:59 +0000 |
|---|---|---|
| committer | Elvio Basello | 2011-01-10 18:36:59 +0000 |
| commit | 78735b180c2ba56fa1cf4fd578726d457626e80a (patch) | |
| tree | 12b359e1e59b7585dc89878e2eeae54982baa4e1 /src/modules/perlcore | |
| parent | updated perlcore's xs include, hopefully fixing #1068 (diff) | |
| download | KVIrc-78735b180c2ba56fa1cf4fd578726d457626e80a.tar.gz KVIrc-78735b180c2ba56fa1cf4fd578726d457626e80a.tar.bz2 KVIrc-78735b180c2ba56fa1cf4fd578726d457626e80a.zip | |
killed some QString helpers. Pay attention to the localizations: format strings have changed!;
updated translation files;
git-svn-id: https://svn.kvirc.de/svn/trunk/kvirc@5328 17fca916-40b9-46aa-a4ea-0a15b648b75c
Diffstat (limited to 'src/modules/perlcore')
| -rw-r--r-- | src/modules/perlcore/libkviperlcore.cpp | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/src/modules/perlcore/libkviperlcore.cpp b/src/modules/perlcore/libkviperlcore.cpp index b27e690aa..fb44900e6 100644 --- a/src/modules/perlcore/libkviperlcore.cpp +++ b/src/modules/perlcore/libkviperlcore.cpp @@ -179,15 +179,14 @@ bool KviPerlInterpreter::init() // declaration could be dropped as well... // I just haven't tried :D - KviQString::sprintf( - szInitCode, + szInitCode = QString( "{\n" \ "package KVIrc;\n" \ "require Exporter;\n" \ "our @ISA = qw(Exporter);\n" \ "1;\n" \ "}\n" \ - "$g_szContext = \"%Q\";\n" \ + "$g_szContext = \"%1\";\n" \ "$g_bExecuteQuiet = 0;\n" \ "$SIG{__WARN__} = sub\n" \ "{\n" \ @@ -195,8 +194,7 @@ bool KviPerlInterpreter::init() " ($p,$f,$l) = caller;\n" \ " KVIrc::internalWarning(\"At line \".$l.\" of perl code: \");\n" \ " KVIrc::internalWarning(join(' ',@_));\n" \ - "}\n", - &m_szContextName); + "}\n").arg(m_szContextName); eval_pv(szInitCode.toUtf8().data(),false); return true; |