From 12b1cf63b58d592b272c7e3f9e8546f0f17745ab Mon Sep 17 00:00:00 2001
From: darthgandalf <darthgandalf@726aef4b-f618-498e-8847-2d620e286838>
Date: Tue, 7 Dec 2010 14:04:44 +0000
Subject: [PATCH] Add functions to Perl API for checking ZNC version.

git-svn-id: https://znc.svn.sourceforge.net/svnroot/znc/trunk@2185 726aef4b-f618-498e-8847-2d620e286838
---
 modules/modperl/module.h | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/modules/modperl/module.h b/modules/modperl/module.h
index 4557ac32..f5994b3d 100644
--- a/modules/modperl/module.h
+++ b/modules/modperl/module.h
@@ -158,3 +158,19 @@ inline bool HaveCAres() {
 inline int _GetSOMAXCONN() {
 	return SOMAXCONN;
 }
+
+inline int GetVersionMajor() {
+	return VERSION_MAJOR;
+}
+
+inline int GetVersionMinor() {
+	return VERSION_MINOR;
+}
+
+inline double GetVersion() {
+	return VERSION;
+}
+
+inline CString GetVersionExtra() {
+	return VERSION_EXTRA;
+}