adam/znc
1
0
Fork 0
mirror of https://github.com/znc/znc.git synced 2026-08-07 01:13:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Rework modperl to better integrate with perl.

Browse Source 
Now it supports global and network modules.
Fixes github issue #82
This commit is contained in:
Alexey Sokolov
2011-12-29 11:35:25 +07:00
parent 9e047a3beb
commit 8bb7ea5370
5 changed files with 133 additions and 171 deletions
Download Patch File Download Diff File Expand all files Collapse all files
modules/modperl/codegen.pl
+1 -1
View File
@@ -64,7 +64,7 @@ namespace {
#define PUSH_STR(s) XPUSHs(PString(s).GetSV())
#define PUSH_PTR(type, p) XPUSHs(SWIG_NewInstanceObj(const_cast<type>(p), SWIG_TypeQuery(#type), SWIG_SHADOW))
*/
#define PSTART_IDF(Func) PSTART; PUSH_STR(GetPerlID()); PUSH_STR(#Func)
#define PSTART_IDF(Func) PSTART; XPUSHs(GetPerlObj()); PUSH_STR(#Func)
#define PCALLMOD(Error, Success) PCALL("ZNC::Core::CallModFunc"); if (SvTRUE(ERRSV)) { DEBUG("Perl hook died with: " + PString(ERRSV)); Error; } else { Success; } PEND
EOF