diff options
| author | Sebastien Helleu <flashcode@flashtux.org> | 2008-01-13 23:29:43 +0100 |
|---|---|---|
| committer | Sebastien Helleu <flashcode@flashtux.org> | 2008-01-13 23:29:43 +0100 |
| commit | 68f723888798a792480f4113663cc4e33a4b2d64 (patch) | |
| tree | f4e61691a67b60dd94d84df119263dd181a76c97 /src/plugins/scripts/perl | |
| parent | 05e1e4715c81e05de4997c4acf15d65b3839bb14 (diff) | |
| download | weechat-68f723888798a792480f4113663cc4e33a4b2d64.zip | |
Migration of Lua plugin to new API
Diffstat (limited to 'src/plugins/scripts/perl')
| -rw-r--r-- | src/plugins/scripts/perl/weechat-perl-api.c | 12 | ||||
| -rw-r--r-- | src/plugins/scripts/perl/weechat-perl.c | 3 |
2 files changed, 7 insertions, 8 deletions
diff --git a/src/plugins/scripts/perl/weechat-perl-api.c b/src/plugins/scripts/perl/weechat-perl-api.c index 749f272e3..27c50e5a7 100644 --- a/src/plugins/scripts/perl/weechat-perl-api.c +++ b/src/plugins/scripts/perl/weechat-perl-api.c @@ -45,7 +45,7 @@ XSRETURN (1); \ } \ XST_mPV (0, ""); \ - XSRETURN (1); + XSRETURN (1) #define PERL_RETURN_STRING_FREE(__string) \ if (__string) \ { \ @@ -54,7 +54,7 @@ XSRETURN (1); \ } \ XST_mPV (0, ""); \ - XSRETURN (1); + XSRETURN (1) extern void boot_DynaLoader (pTHX_ CV* cv); @@ -328,7 +328,7 @@ static XS (XS_weechat_color) } /* - * weechat::print: print message into a buffer (current or specified one) + * weechat::print: print message in a buffer */ static XS (XS_weechat_print) @@ -828,7 +828,7 @@ static XS (XS_weechat_hook_signal) static XS (XS_weechat_hook_signal_send) { char *type_data; - int int_value; + int number; dXSARGS; /* make C compiler happy */ @@ -856,10 +856,10 @@ static XS (XS_weechat_hook_signal_send) } else if (strcmp (type_data, WEECHAT_HOOK_SIGNAL_INT) == 0) { - int_value = SvIV(ST (2)); + number = SvIV(ST (2)); weechat_hook_signal_send (SvPV (ST (0), PL_na), /* signal */ type_data, - &int_value); /* signal_data */ + &number); /* signal_data */ PERL_RETURN_OK; } else if (strcmp (type_data, WEECHAT_HOOK_SIGNAL_POINTER) == 0) diff --git a/src/plugins/scripts/perl/weechat-perl.c b/src/plugins/scripts/perl/weechat-perl.c index b3474de81..c34a80223 100644 --- a/src/plugins/scripts/perl/weechat-perl.c +++ b/src/plugins/scripts/perl/weechat-perl.c @@ -730,8 +730,7 @@ weechat_plugin_init (struct t_weechat_plugin *plugin) weechat_hook_signal ("dump_data", &weechat_perl_dump_data_cb, NULL); script_init (weechat_perl_plugin); - script_auto_load (weechat_perl_plugin, - "perl", &weechat_perl_load_cb); + script_auto_load (weechat_perl_plugin, "perl", &weechat_perl_load_cb); /* init ok */ return WEECHAT_RC_OK; |