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

Fix newly introduced warning in modperl

Browse Source
This commit is contained in:
Alexey Sokolov
2017-12-17 22:26:46 +00:00
parent 9474c3dc09
commit a0cbe130d9
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
modules/modperl/codegen.pl
+1 -1
View File
@@ -67,7 +67,7 @@ namespace {
}
}
#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 { if (!SvIV(ST(0))) { Error; } Success; } PEND
#define PCALLMOD(Error, Success) PCALL("ZNC::Core::CallModFunc"); if (SvTRUE(ERRSV)) { DEBUG("Perl hook died with: " + PString(ERRSV)); Error; } else if (SvIV(ST(0))) { Success; } else { Error; } PEND
EOF
modules/modperl/startup.pl
+1 -1
View File
@@ -223,7 +223,7 @@ sub CallModFunc {
my $func = shift;
my @arg = @_;
my $res = $pmod->$func(@arg);
(defined $res, $res, @arg)
(defined $res, $res//0, @arg)
}
sub CallTimer {