aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2024-11-03 04:27:19 -05:00
Code

/SET perl_use_lib setting to specify the path for irssi's perl libraries.

Browse Source 
Default should work usually, but if you for some reason want to use different
then change this. May contain multiple paths separated with space.


git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1905 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2001-10-24 13:20:26 +00:00 committed by cras
parent b2fdbd64c6
commit 1c9a8ab897
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/perl/perl-common.c
View File

@ -172,11 +172,13 @@ char *perl_get_use_list(void)
GString *str;
GSList *tmp;
char *ret;
const char *use_lib;
str = g_string_new(NULL);
if (*PERL_USE_LIB != '\0')
g_string_append(str, "use lib \""PERL_USE_LIB"\";");
use_lib = settings_get_str("perl_use_lib");
if (*use_lib != '\0')
g_string_sprintf(str, "use lib qw(%s);", use_lib);
g_string_append(str, "use Irssi;");
if (irssi_gui != IRSSI_GUI_NONE)

2
src/perl/perl-core.c
View File

@ -24,6 +24,7 @@
#include "core.h"
#include "signals.h"
#include "misc.h"
#include "settings.h"
#include "perl-core.h"
#include "perl-common.h"
@ -397,6 +398,7 @@ static void sig_autorun()
void perl_core_init(void)
{
print_script_errors = 1;
settings_add_str("per", "perl_use_lib", PERL_USE_LIB);
PL_perl_destruct_level = 1;
perl_signals_init();