summaryrefslogtreecommitdiff
path: root/src/perl/irssi-core.pl
diff options
context:
space:
mode:
authorTimo Sirainen <cras@irssi.org>2001-10-24 23:17:27 +0000
committercras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564>2001-10-24 23:17:27 +0000
commitddf1b27c048d6cfa6e3733d3256634b66d6d4c25 (patch)
tree01a3e176ef436f109611fe8ed17f2851ef01bae4 /src/perl/irssi-core.pl
parentbbd4b47306a58c65e63a898b291efd797758f034 (diff)
downloadirssi-ddf1b27c048d6cfa6e3733d3256634b66d6d4c25.zip
Added --with-perl-staticlib option to configure. If used, irssi's perl
libraries are compiled statically into irssi binary. git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1914 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/irssi-core.pl')
-rw-r--r--src/perl/irssi-core.pl9
1 files changed, 7 insertions, 2 deletions
diff --git a/src/perl/irssi-core.pl b/src/perl/irssi-core.pl
index 2a0fa57d..a63a723c 100644
--- a/src/perl/irssi-core.pl
+++ b/src/perl/irssi-core.pl
@@ -1,12 +1,17 @@
# NOTE: this is printed through printf()-like function,
# so no extra percent characters.
-# %%s can be used once, it contains the
-# use Irssi; use Irssi::Irc; etc..
+# %%d : must be first - 1 if perl libraries are to be linked
+# statically with irssi binary, 0 if not
+# %%s : must be second - use Irssi; use Irssi::Irc; etc..
package Irssi::Core;
use Symbol qw(delete_package);
+sub is_static {
+ return %d;
+}
+
sub destroy {
my $package = "Irssi::Script::".$_[0];
delete_package($package);