From 0f29e57c14f48eb35bbce16fdab217ba54667463 Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Fri, 7 Dec 2001 22:18:39 +0000
Subject: Removed Irssi::require_version(), we'll use "use Irssi 20011207;"
 style now.

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2217 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 src/perl/common/Core.xs  | 7 -------
 src/perl/common/Irssi.pm | 6 ++++++
 2 files changed, 6 insertions(+), 7 deletions(-)

(limited to 'src/perl/common')

diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs
index d1bcb67b..723533d7 100644
--- a/src/perl/common/Core.xs
+++ b/src/perl/common/Core.xs
@@ -436,13 +436,6 @@ 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
 #*******************************
diff --git a/src/perl/common/Irssi.pm b/src/perl/common/Irssi.pm
index d571be4b..56c23f75 100644
--- a/src/perl/common/Irssi.pm
+++ b/src/perl/common/Irssi.pm
@@ -7,6 +7,12 @@ package Irssi;
 use strict;
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 
+sub VERSION {
+  my $version = $_[1];
+  die "This script requires irssi version $version or later"
+    if ($version > version());
+}
+
 $VERSION = "0.9";
 
 require Exporter;
-- 
cgit v1.2.3