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

Add modperl support for sasl

Browse Source
This commit is contained in:
Alexey Sokolov
2025-03-16 00:42:27 +00:00
parent 93e364b296
commit a7dffb8ff1
5 changed files with 106 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
modules/modperl/codegen.pl
+1
View File
@@ -98,6 +98,7 @@ while (<$in>) {
say $out "\t\tPUSH_PTR($sub*, *i);";
say $out "\t}";
}
when (/SCString/) { my $b=$a->{base}; $b=~s/^const//; say $out "\tPUSH_PTR($b*, &$a->{var});" }
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});" }