From 0e0d99587a9e2daa091d48adedfbf420cad21758 Mon Sep 17 00:00:00 2001
From: LemonBoy <thatlemon@gmail.com>
Date: Thu, 15 Sep 2016 13:59:52 +0200
Subject: Expose 'cap_toggle' to the perl scripts.

---
 src/perl/irc/Server.xs | 9 +++++++++
 src/perl/irc/module.h  | 1 +
 2 files changed, 10 insertions(+)

diff --git a/src/perl/irc/Server.xs b/src/perl/irc/Server.xs
index 0e9ec672..33417bf5 100644
--- a/src/perl/irc/Server.xs
+++ b/src/perl/irc/Server.xs
@@ -149,3 +149,12 @@ CODE:
 OUTPUT:
 	RETVAL
 
+int
+irc_server_cap_toggle(server, cap, enable)
+	Irssi::Irc::Server server
+	char *cap
+	int enable
+CODE:
+	RETVAL = cap_toggle(server, cap, enable);
+OUTPUT:
+	RETVAL
diff --git a/src/perl/irc/module.h b/src/perl/irc/module.h
index 91c19c7a..a2454545 100644
--- a/src/perl/irc/module.h
+++ b/src/perl/irc/module.h
@@ -6,6 +6,7 @@
 #include "irc-queries.h"
 #include "irc-nicklist.h"
 #include "irc-masks.h"
+#include "irc-cap.h"
 
 #include "bans.h"
 #include "modes.h"
-- 
cgit v1.2.3