pegasus/weechat
1
0
Fork 0
mirror of https://github.com/weechat/weechat.git synced 2026-06-28 05:46:38 +02:00
Code Activity

Fix compilation warnings in Perl plugin on FreeBSD

Browse Source
This commit is contained in:
Sebastien Helleu
2008-12-12 23:48:48 +01:00
parent d6bc2d2320
commit d310070721
2 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/plugins/scripts/perl/weechat-perl-api.c
+5 -2
View File
@@ -4113,6 +4113,7 @@ static XS (XS_weechat_api_command)
static XS (XS_weechat_api_info_get)
{
char *info_name, *arguments;
const char *result;
dXSARGS;
@@ -4131,8 +4132,10 @@ static XS (XS_weechat_api_info_get)
PERL_RETURN_EMPTY;
}
result = weechat_info_get (SvPV (ST (0), PL_na),
SvPV (ST (1), PL_na));
info_name = SvPV (ST (0), PL_na);
arguments = SvPV (ST (1), PL_na);
result = weechat_info_get (info_name, arguments);
PERL_RETURN_STRING(result);
}
src/plugins/scripts/perl/weechat-perl.c
+2
View File
@@ -118,7 +118,9 @@ weechat_perl_exec (struct t_plugin_script *script,
int *ret_i, mem_err, length;
SV *ret_s;
struct t_plugin_script *old_perl_current_script;
#ifdef MULTIPLICITY
void *old_context;
#endif
/* this code is placed here to conform ISO C90 */
dSP;