From 3b8622f1aaa83f082286af6e4efbd648042fcfcb Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Mon, 10 Dec 2001 20:23:50 +0000
Subject: Allow exporting symbols, patch by juerd@juerd.nl

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2233 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 src/perl/common/Irssi.pm | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src/perl/common')

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;
 
-- 
cgit v1.2.3