summaryrefslogtreecommitdiff
path: root/src/plugins/perl/wee-perl.c
diff options
context:
space:
mode:
authorSebastien Helleu <flashcode@flashtux.org>2003-11-17 21:07:17 +0000
committerSebastien Helleu <flashcode@flashtux.org>2003-11-17 21:07:17 +0000
commitedcc01bcf0a0c17992314cfa7af355f1952113e5 (patch)
tree9b9ff69235b575a58bb5e1ed907bba0d93e37d0d /src/plugins/perl/wee-perl.c
parentfe4ca016156b01a1c66410dcecce5a970aa55bd3 (diff)
downloadweechat-edcc01bcf0a0c17992314cfa7af355f1952113e5.zip
Added Perl message handlers
Diffstat (limited to 'src/plugins/perl/wee-perl.c')
-rw-r--r--src/plugins/perl/wee-perl.c6
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 =
{