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 ();