From 8af17ef24cfb0410d4d2cc7fd86d15175266d5b6 Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Fri, 16 Nov 2001 16:17:16 +0000
Subject: [PATCH] Added Irssi::version() for returning the IRSSI_VERSION_DATE,
 fixed get_irssi_dir() and get_irssi_config() not to complain about const
 char*.

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2033 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 src/perl/common/Core.xs | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs
index 6c88be15..036deb32 100644
--- a/src/perl/common/Core.xs
+++ b/src/perl/common/Core.xs
@@ -1,4 +1,5 @@
 #include "module.h"
+#include "irssi-version.h"
 
 MODULE = Irssi::Core  PACKAGE = Irssi
 PROTOTYPES: ENABLE
@@ -378,9 +379,24 @@ OUTPUT:
 
 char *
 get_irssi_dir()
+CODE:
+	RETVAL = (char *) get_irssi_dir();
+OUTPUT:
+	RETVAL
 
 char *
 get_irssi_config()
+CODE:
+	RETVAL = (char *) get_irssi_config();
+OUTPUT:
+	RETVAL
+
+char *
+version()
+CODE:
+	RETVAL = IRSSI_VERSION_DATE;
+OUTPUT:
+	RETVAL
 
 #*******************************
 MODULE = Irssi::Core	PACKAGE = Irssi::Server