zynk/irssi
2
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2026-08-20 17:12:51 +02:00
Code Issues Projects Releases Packages Wiki Activity

use Irssi; use Irssi::Irc and use Irssi::UI are now automatically called so

Browse source 
you won't need to add those to scripts.


git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1603 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2001-06-30 11:53:03 +00:00 • committed by cras
commit 3005cad5c3
2 changed files with 13 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/perl/perl-common.c
View file

@ -21,6 +21,7 @@
#include "module.h"
#include "modules.h"
#include "signals.h"
#include "core.h"
#include "misc.h"
#include "settings.h"
@ -156,6 +157,13 @@ char *perl_get_use_list(void)
str = g_string_new(NULL);
if (*PERL_LIB_DIR != '\0')
g_string_append(str, "use lib \""PERL_LIB_DIR"\";");
g_string_append(str, "use Irssi;");
if (irssi_gui != IRSSI_GUI_NONE)
g_string_append(str, "use Irssi::UI;");
for (tmp = use_protocols; tmp != NULL; tmp = tmp->next)
g_string_sprintfa(str, "use Irssi::%s;", (char *) tmp->data);