pegasus/weechat
1
0
Fork 0
mirror of https://github.com/weechat/weechat.git synced 2026-07-09 19:23:13 +02:00
Code Activity

core: fix some styles

Browse Source
This commit is contained in:
Sébastien Helleu
2018-01-07 09:11:45 +01:00
parent 91f792416b
commit 7ee88fb46c
58 changed files with 283 additions and 282 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/plugins/perl/weechat-perl.c
+6 -6
View File
@@ -351,14 +351,14 @@ weechat_perl_exec (struct t_plugin_script *script,
switch (format[i])
{
case 's': /* string */
XPUSHs(sv_2mortal(newSVpv((char *)argv[i], 0)));
XPUSHs (sv_2mortal(newSVpv((char *)argv[i], 0)));
break;
case 'i': /* integer */
XPUSHs(sv_2mortal(newSViv(*((int *)argv[i]))));
XPUSHs (sv_2mortal(newSViv(*((int *)argv[i]))));
break;
case 'h': /* hash */
hash = weechat_perl_hashtable_to_hash (argv[i]);
XPUSHs(sv_2mortal(newRV_inc((SV *)hash)));
XPUSHs (sv_2mortal(newRV_inc((SV *)hash)));
break;
}
}
@@ -400,7 +400,7 @@ weechat_perl_exec (struct t_plugin_script *script,
{
if (ret_type == WEECHAT_SCRIPT_EXEC_STRING)
{
ret_s = newSVsv(POPs);
ret_s = newSVsv (POPs);
ret_value = strdup (SvPV_nolen (ret_s));
SvREFCNT_dec (ret_s);
}
@@ -520,7 +520,7 @@ weechat_perl_load (const char *filename, const char *code)
perl_registered_script = NULL;
#ifdef MULTIPLICITY
perl_current_interpreter = perl_alloc();
perl_current_interpreter = perl_alloc ();
if (!perl_current_interpreter)
{
@@ -584,7 +584,7 @@ weechat_perl_load (const char *filename, const char *code)
weechat_printf (NULL,
weechat_gettext ("%s%s: error: %s"),
weechat_prefix ("error"), PERL_PLUGIN_NAME,
SvPV_nolen(ERRSV));
SvPV_nolen (ERRSV));
#ifdef MULTIPLICITY
perl_destruct (perl_current_interpreter);
perl_free (perl_current_interpreter);