pegasus/weechat
1
0
Fork 0
mirror of https://github.com/weechat/weechat.git synced 2026-06-27 13:26:38 +02:00
Code Activity

perl: do not update message argument in function weechat_perl_output (issue #128)

Browse Source
This commit is contained in:
Sébastien Helleu
2017-12-29 09:25:56 +01:00
parent 414959a474
commit b80e3ff792
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/plugins/perl/weechat-perl.c
+5 -4
View File
@@ -278,7 +278,7 @@ weechat_perl_output_flush ()
XS (weechat_perl_output)
{
char *msg, *ptr_msg, *ptr_newline;
char *msg, *ptr_msg, *ptr_newline, *message;
dXSARGS;
if (items < 1)
@@ -288,10 +288,11 @@ XS (weechat_perl_output)
ptr_msg = msg;
while ((ptr_newline = strchr (ptr_msg, '\n')) != NULL)
{
ptr_newline[0] = '\0';
weechat_string_dyn_concat (perl_buffer_output, ptr_msg);
message = weechat_strndup (ptr_msg, ptr_newline - ptr_msg);
weechat_string_dyn_concat (perl_buffer_output, message);
if (message)
free (message);
weechat_perl_output_flush ();
ptr_newline[0] = '\n';
ptr_msg = ++ptr_newline;
}
weechat_string_dyn_concat (perl_buffer_output, ptr_msg);