aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2025-01-03 14:56:47 -05:00
Code

Allow exporting symbols, patch by juerd@juerd.nl

Browse Source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2233 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2001-12-10 20:23:50 +00:00 committed by cras
parent eb91b126ec
commit 3b8622f1aa
4 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -13,6 +13,11 @@ sub VERSION {
if ($version > version());
}
sub EXPORT_ALL () {
no strict 'refs';
@EXPORT_OK = grep { /[a-z]/ && defined *{$_}{CODE} } keys %Irssi::;
}
$VERSION = "0.9";
require Exporter;
@ -37,5 +42,7 @@ bootstrap Irssi $VERSION if (!Irssi::Core::is_static());
Irssi::init();
Irssi::EXPORT_ALL();
1;

2
src/perl/irc/Irc.pm
View File

@ -20,5 +20,7 @@ bootstrap Irssi::Irc $VERSION if (!Irssi::Core::is_static());
Irssi::Irc::init();
Irssi::EXPORT_ALL();
1;

2
src/perl/textui/TextUI.pm
View File

@ -20,5 +20,7 @@ bootstrap Irssi::TextUI $VERSION if (!Irssi::Core::is_static());
Irssi::TextUI::init();
Irssi::EXPORT_ALL();
1;

2
src/perl/ui/UI.pm
View File

@ -20,4 +20,6 @@ bootstrap Irssi::UI $VERSION if (!Irssi::Core::is_static());
Irssi::UI::init();
Irssi::EXPORT_ALL();
1;