diff options
| -rw-r--r-- | src/perl/perl-common.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/perl/perl-common.c b/src/perl/perl-common.c index 4018dcb1..daaa87f6 100644 --- a/src/perl/perl-common.c +++ b/src/perl/perl-common.c @@ -568,6 +568,7 @@ static void perl_register_protocol(CHAT_PROTOCOL_REC *rec) "Nick" }; static char *find_use_code = + "use lib qw(%s);\n" "my $pkg = Irssi::%s; $pkg =~ s/::/\\//;\n" "foreach my $i (@INC) {\n" " return 1 if (-f \"$i/$pkg.pm\");\n" @@ -626,7 +627,8 @@ static void perl_register_protocol(CHAT_PROTOCOL_REC *rec) perl_eval_pv(code, TRUE); } - pcode = g_strdup_printf(find_use_code, name); + pcode = g_strdup_printf(find_use_code, + settings_get_str("perl_use_lib"), name); sv = perl_eval_pv(pcode, TRUE); g_free(pcode); |