aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2024-09-29 04:45:57 -04:00
Code

Removed Irssi::require_version(), we'll use "use Irssi 20011207;" style now.

Browse Source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2217 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2001-12-07 22:18:39 +00:00 committed by cras
parent a09075938f
commit 0f29e57c14
2 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/perl/common/Core.xs
View File

@ -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
#*******************************

6
src/perl/common/Irssi.pm
View File

@ -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;