diff options
| author | Timo Sirainen <cras@irssi.org> | 2001-12-01 18:34:01 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2001-12-01 18:34:01 +0000 |
| commit | fa37db9205c3ddbdaa481370492ccd72f9a6fb64 (patch) | |
| tree | a90dc0583474bdc599fbe6b2e69fb6157628599f /src/perl/perl-common.c | |
| parent | b35062bb6a87ef8c06c5b1eddf26b08800665ebc (diff) | |
| download | irssi-fa37db9205c3ddbdaa481370492ccd72f9a6fb64.zip | |
Added ~/.irssi/scripts and PREFIX/lib/irssi/scripts to default @INC path
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2173 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/perl-common.c')
| -rw-r--r-- | src/perl/perl-common.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/perl/perl-common.c b/src/perl/perl-common.c index a57c81e8..a8e163e9 100644 --- a/src/perl/perl-common.c +++ b/src/perl/perl-common.c @@ -178,8 +178,8 @@ char *perl_get_use_list(void) str = g_string_new(NULL); use_lib = settings_get_str("perl_use_lib"); - if (*use_lib != '\0') - g_string_sprintf(str, "use lib qw(%s);", use_lib); + g_string_sprintf(str, "use lib qw(%s/scripts "SCRIPTDIR" %s);", + get_irssi_dir(), use_lib); g_string_append(str, "use Irssi;"); if (irssi_gui != IRSSI_GUI_NONE) |