From edcc01bcf0a0c17992314cfa7af355f1952113e5 Mon Sep 17 00:00:00 2001 From: Sebastien Helleu Date: Mon, 17 Nov 2003 21:07:17 +0000 Subject: Added Perl message handlers --- src/plugins/perl/wee-perl.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'src/plugins/perl/wee-perl.c') 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 = { -- cgit v1.2.3