Perl working again, better than ever (unless there's bugs :)

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@191 dbcabf3a-b0e7-0310-adc4-f8d773084564

src/perl/xs/Irssi-masks.xs

@@ -0,0 +1,26 @@
+MODULE = Irssi  PACKAGE = Irssi
+
+int
+irc_mask_match(mask, nick, user, host)
+	char *mask
+	char *nick
+	char *user
+	char *host
+
+int
+irc_mask_match_address(mask, nick, address)
+	char *mask
+	char *nick
+	char *address
+
+int
+irc_masks_match(masks, nick, address)
+	char *masks
+	char *nick
+	char *address
+
+char *
+irc_get_mask(nick, host, flags)
+	char *nick
+	char *host
+	int flags