diff options
| author | Timo Sirainen <cras@irssi.org> | 2001-12-10 20:23:50 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2001-12-10 20:23:50 +0000 |
| commit | 3b8622f1aaa83f082286af6e4efbd648042fcfcb (patch) | |
| tree | a2e071ad8e992ec595a53e21091a0a721f18aa86 /src/perl/common | |
| parent | eb91b126ecb77e3348b5040284ffcf57854913ce (diff) | |
| download | irssi-3b8622f1aaa83f082286af6e4efbd648042fcfcb.zip | |
Allow exporting symbols, patch by juerd@juerd.nl
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2233 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/common')
| -rw-r--r-- | src/perl/common/Irssi.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/perl/common/Irssi.pm b/src/perl/common/Irssi.pm index 56c23f75..ce35c52e 100644 --- a/src/perl/common/Irssi.pm +++ b/src/perl/common/Irssi.pm @@ -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; |