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

/perl command does now "use Irssi::Proto" for all chat protocols that

Browse source 
have .pm file in @INC


git-svn-id: http://svn.irssi.org/repos/irssi/trunk@983 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2000-12-09 21:58:53 +00:00 • committed by cras
commit 062d662834
3 changed files with 65 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/perl/perl.c
View file

@ -381,16 +381,24 @@ static void cmd_run(const char *data)
static void cmd_perl(const char *data)
{
dSP;
GString *code;
GString *code;
char *uses;
SV *sv;
ENTER;
SAVETMPS;
PUSHMARK(SP);
code = g_string_new("use Irssi;\n");
g_string_append(code, data);
perl_eval_pv(code->str, G_NOARGS|G_EVAL|G_DISCARD);
code = g_string_new(NULL);
uses = perl_get_use_list();
g_string_sprintf(code, "sub { use Irssi;%s\n%s }", uses, data);
sv = perl_eval_pv(code->str, TRUE);
perl_call_sv(sv, G_VOID|G_NOARGS|G_EVAL|G_DISCARD);
g_free(uses);
g_string_free(code, TRUE);
SPAGAIN;