From a09075938fc9fce04805b291426e4ae635a6cc87 Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Fri, 7 Dec 2001 21:52:41 +0000
Subject: [PATCH] Added Irssi::require_version()

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

diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs
index 723533d7..d1bcb67b 100644
--- a/src/perl/common/Core.xs
+++ b/src/perl/common/Core.xs
@@ -436,6 +436,13 @@ CODE:
 OUTPUT:
 	RETVAL
 
+void
+require_version(date)
+	int date
+CODE:
+	if (date > atol(IRSSI_VERSION_DATE))
+		die("This script requires irssi version %d or later", date);
+
 #*******************************
 MODULE = Irssi::Core	PACKAGE = Irssi::Server
 #*******************************