summaryrefslogtreecommitdiff
path: root/src/plugins/perl
diff options
context:
space:
mode:
Diffstat (limited to 'src/plugins/perl')
-rw-r--r--src/plugins/perl/wee-perl.c6
-rw-r--r--src/plugins/perl/wee-perl.h1
2 files changed, 5 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 =
{
diff --git a/src/plugins/perl/wee-perl.h b/src/plugins/perl/wee-perl.h
index 5898285ca..c018bf44a 100644
--- a/src/plugins/perl/wee-perl.h
+++ b/src/plugins/perl/wee-perl.h
@@ -37,6 +37,7 @@ struct t_perl_script
extern void wee_perl_init ();
extern t_perl_script *wee_perl_search (char *);
+extern int wee_perl_exec (char *, char *);
extern int wee_perl_load (char *);
extern void wee_perl_unload (t_perl_script *);
extern void wee_perl_unload_all ();