diff options
| author | Sebastien Helleu <flashcode@flashtux.org> | 2003-11-17 21:07:17 +0000 |
|---|---|---|
| committer | Sebastien Helleu <flashcode@flashtux.org> | 2003-11-17 21:07:17 +0000 |
| commit | edcc01bcf0a0c17992314cfa7af355f1952113e5 (patch) | |
| tree | 9b9ff69235b575a58bb5e1ed907bba0d93e37d0d /src/plugins/perl/wee-perl.c | |
| parent | fe4ca016156b01a1c66410dcecce5a970aa55bd3 (diff) | |
| download | weechat-edcc01bcf0a0c17992314cfa7af355f1952113e5.zip | |
Added Perl message handlers
Diffstat (limited to 'src/plugins/perl/wee-perl.c')
| -rw-r--r-- | src/plugins/perl/wee-perl.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/plugins/perl/wee-perl.c b/src/plugins/perl/wee-perl.c index f0d105843..2433e8fab 100644 --- a/src/plugins/perl/wee-perl.c +++ b/src/plugins/perl/wee-perl.c @@ -101,7 +101,9 @@ static XS (XS_IRC_print) for (i = 0; i < items; i++) { message = SvPV (ST (i), integer); - gui_printf (NULL, "%s\n", message); + gui_printf (gui_current_window, "%s%s", + message, + (message[strlen (message) - 1] == '\n') ? "" : "\n"); } XSRETURN_EMPTY; @@ -144,7 +146,7 @@ void wee_perl_init () { char *perl_args[] = { "", "-e", "0" }; - /* This Perl code is extracted/modified from X-Chat IRC client */ + /* Following Perl code is extracted/modified from X-Chat IRC client */ /* X-Chat is (c) 1998-2002 Peter Zelezny */ char *weechat_perl_func = { |