4 files changed, 21 insertions, 5 deletions
diff --git a/src/perl/Makefile.am b/src/perl/Makefile.am
index 575004d3..6af4d9be 100644
--- a/src/perl/Makefile.am
+++ b/src/perl/Makefile.am
@@ -92,6 +92,7 @@ irc_sources = \
 	irc/Irc.pm \
 	irc/Dcc.xs \
 	irc/Channel.xs \
+	irc/Ctcp.xs \
 	irc/Query.xs \
 	irc/Server.xs \
 	irc/Modes.xs \
diff --git a/src/perl/irc/Ctcp.xs b/src/perl/irc/Ctcp.xs
new file mode 100644
index 00000000..675091fd
--- /dev/null
+++ b/src/perl/irc/Ctcp.xs
@@ -0,0 +1,19 @@
+#include "module.h"
+
+MODULE = Irssi::Irc::Ctcp	PACKAGE = Irssi
+PROTOTYPES: ENABLE
+
+void
+ctcp_register(name)
+	char *name
+
+void
+ctcp_unregister(name)
+	char *name
+
+MODULE = Irssi::Irc::Ctcp	PACKAGE = Irssi::Irc::Server  PREFIX = irc_server_
+
+void
+ctcp_send_reply(server, data)
+	Irssi::Irc::Server server
+	char *data
diff --git a/src/perl/irc/Irc.xs b/src/perl/irc/Irc.xs
index 3ab20ac4..2f742fad 100644
--- a/src/perl/irc/Irc.xs
+++ b/src/perl/irc/Irc.xs
@@ -184,6 +184,7 @@ CODE:
 
 BOOT:
 	irssi_boot(Irc__Channel);
+	irssi_boot(Irc__Ctcp);
 	irssi_boot(Irc__Dcc);
 	irssi_boot(Irc__Modes);
 	irssi_boot(Irc__Netsplit);
diff --git a/src/perl/irc/Server.xs b/src/perl/irc/Server.xs
index db4f7ced..48ef3ad6 100644
--- a/src/perl/irc/Server.xs
+++ b/src/perl/irc/Server.xs
@@ -73,11 +73,6 @@ send_raw_split(server, cmd, nickarg, max_nicks)
 CODE:
 	irc_send_cmd_split(server, cmd, nickarg, max_nicks);
 
-void
-ctcp_send_reply(server, data)
-	Irssi::Irc::Server server
-	char *data
-
 MODULE = Irssi::Irc::Server	PACKAGE = Irssi::Irc::Server  PREFIX = server_
 
 void