/[weechat]/weechat/src/plugins/perl/wee-perl.c
ViewVC logotype

Diff of /weechat/src/plugins/perl/wee-perl.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by flashcode, Sun Nov 16 23:46:49 2003 UTC revision 1.3 by flashcode, Mon Nov 17 21:07:18 2003 UTC
# Line 101  static XS (XS_IRC_print) Line 101  static XS (XS_IRC_print)
101      for (i = 0; i < items; i++)      for (i = 0; i < items; i++)
102      {      {
103          message = SvPV (ST (i), integer);          message = SvPV (ST (i), integer);
104          gui_printf (NULL, "%s\n", message);          gui_printf (gui_current_window, "%s%s",
105                        message,
106                        (message[strlen (message) - 1] == '\n') ? "" : "\n");
107      }      }
108            
109      XSRETURN_EMPTY;      XSRETURN_EMPTY;
# Line 144  void Line 146  void
146  wee_perl_init ()  wee_perl_init ()
147  {  {
148      char *perl_args[] = { "", "-e", "0" };      char *perl_args[] = { "", "-e", "0" };
149      /* This Perl code is extracted/modified from X-Chat IRC client */      /* Following Perl code is extracted/modified from X-Chat IRC client */
150      /* X-Chat is (c) 1998-2002 Peter Zelezny */      /* X-Chat is (c) 1998-2002 Peter Zelezny */
151      char *weechat_perl_func =      char *weechat_perl_func =
152      {      {

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26