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

Fix: modperl hooks didn't get bool arguments.

Browse Source 
git-svn-id: https://znc.svn.sourceforge.net/svnroot/znc/trunk@2136 726aef4b-f618-498e-8847-2d620e286838
This commit is contained in:
darthgandalf
2010-09-13 16:27:20 +00:00
parent 417018172c
commit 1d6f11f71a
2 changed files with 25 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
modules/modperl/codegen.pl
+4 -1
View File
@@ -111,6 +111,8 @@ while (<$in>) {
when (/CString/) { say $out "\tPUSH_STR($a->{var});" }
when (/\*$/) { my $t=$a->{type}; $t=~s/^const//; say $out "\tPUSH_PTR($t, $a->{var});" }
when (/&$/) { my $b=$a->{base}; $b=~s/^const//; say $out "\tPUSH_PTR($b*, &$a->{var});" }
when (/unsigned/){ say $out "\tmXPUSHu($a->{var});" }
default { say $out "\tmXPUSHi($a->{var});" }
}
}
say $out "\tPCALLMOD(,";
@@ -131,6 +133,7 @@ sub sv {
when (/^(.*)\*$/) { return "SvToPtr<$1>(\"$type\")" }
when ('CString') { return 'PString' }
when ('CModule::EModRet') { return 'SvToEModRet' }
default { return 'SvUV' }
when (/unsigned/) { return 'SvUV' }
default { return 'SvIV' }
}
}