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

10
src/perl/perl.c
View file

@ -94,12 +94,12 @@ static void irssi_perl_start(void)
perl_parse(my_perl, xs_init, 3, args, NULL);
use_code = *PERL_LIB_DIR == '\0' ? "" :
"use lib \""PERL_LIB_DIR"\";";
use_code = perl_get_use_list();
code = g_strdup_printf(eval_file_code, use_code);
perl_eval_pv(code, TRUE);
g_free(code);
g_free(code);
g_free(use_code);
perl_common_init();
}
@ -249,7 +249,7 @@ static void cmd_perl(const char *data)
code = g_string_new(NULL);
uses = perl_get_use_list();
g_string_sprintf(code, "sub { use Irssi;%s\n%s }", uses, data);
g_string_sprintf(code, "sub { %s\n%s }", uses, data);
sv = perl_eval_pv(code->str, TRUE);
perl_call_sv(sv, G_VOID|G_NOARGS|G_EVAL|G_DISCARD);