Added SILC Thread Queue API

[crypto.git] / apps / irssi / src / perl / common / Server.xs

diff --git a/apps/irssi/src/perl/common/Server.xs b/apps/irssi/src/perl/common/Server.xs
index adcabb162d48515c20ab3c3084efeb253eef52b6..76ea781218a1778d9b231955950e38b933d2044c 100644 (file)
--- a/apps/irssi/src/perl/common/Server.xs
+++ b/apps/irssi/src/perl/common/Server.xs
@@ -31,7 +31,7 @@ PPCODE:
        }
 
 Irssi::Connect
-server_create_conn(chat_type, dest, port=6667, chatnet=NULL, password=NULL, nick=NULL)
+server_create_conn(chat_type, dest, port, chatnet=NULL, password=NULL, nick=NULL)
        int chat_type
        char *dest
        int port
@@ -72,7 +72,7 @@ isnickflag(server, flag)
        Irssi::Server server
        char flag
 CODE:
-       RETVAL = server->isnickflag(flag);
+       RETVAL = server->isnickflag(server, flag);
 OUTPUT:
        RETVAL
 
@@ -89,7 +89,7 @@ char *
 get_nick_flags(server)
        Irssi::Server server
 CODE:
-       RETVAL = (char *) server->get_nick_flags();
+       RETVAL = (char *) server->get_nick_flags(server);
 OUTPUT:
        RETVAL