aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2024-10-27 05:20:20 -04:00
Code

"use Irssi" now prints a warning if it's used outside irssi, but doesn't

Browse Source 
die.


git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2543 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2002-03-09 12:17:32 +00:00 committed by cras
parent fe3c11b77d
commit 34e5a31673
1 changed files with 21 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5,7 +5,7 @@
package Irssi;
use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
use vars qw($VERSION $in_irssi @ISA @EXPORT @EXPORT_OK);
sub VERSION {
my $version = $_[1];
@ -18,6 +18,10 @@ sub EXPORT_ALL () {
@EXPORT_OK = grep { /[a-z]/ && defined *{$_}{CODE} } keys %Irssi::;
}
sub in_irssi {
return $in_irssi;
}
$VERSION = "0.9";
require Exporter;
@ -35,14 +39,25 @@ require DynaLoader;
);
@EXPORT_OK = qw();
bootstrap Irssi $VERSION if (!Irssi::Core::is_static());
my $static = 0;
@Irssi::Channel::ISA = qw(Irssi::Windowitem);
@Irssi::Query::ISA = qw(Irssi::Windowitem);
eval {
$static = Irssi::Core::is_static();
};
$in_irssi = $@ ? 0 : 1;
Irssi::init();
if (!in_irssi()) {
print "Warning: This script should be run inside irssi\n";
} else {
bootstrap Irssi $VERSION if (!$static);
Irssi::EXPORT_ALL();
@Irssi::Channel::ISA = qw(Irssi::Windowitem);
@Irssi::Query::ISA = qw(Irssi::Windowitem);
Irssi::init();
Irssi::EXPORT_ALL();
}
1;