zynk/irssi
2
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2026-08-20 09:02:13 +02:00
Code Issues Projects Releases Packages Wiki Activity

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
commit 0f29e57c14
2 changed files with 6 additions and 7 deletions
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: OUTPUT:
RETVAL 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 MODULE = Irssi::Core PACKAGE = Irssi::Server
#******************************* #*******************************

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

@ -7,6 +7,12 @@ package Irssi;
use strict; use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); 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"; $VERSION = "0.9";
require Exporter; require Exporter;