diff options
| author | Timo Sirainen <cras@irssi.org> | 2001-01-07 08:23:06 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2001-01-07 08:23:06 +0000 |
| commit | 14dbcd00bf3642a4228733e9c0896b33554d6afe (patch) | |
| tree | 6fd0eb0fe6222c1711a2e8a48a0d8dff76e37802 /src/perl/perl.c | |
| parent | a2d9661982c95d89553e14feb6f185ff22399dab (diff) | |
| download | irssi-14dbcd00bf3642a4228733e9c0896b33554d6afe.zip | |
"return 1" doesn't anymore stop signals in perl scripts. Fixed
Irssi::signal_stop() to properly stop the signal from going to other
perl scripts.
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1086 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/perl.c')
| -rw-r--r-- | src/perl/perl.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/perl/perl.c b/src/perl/perl.c index f233e295..aaf1ce99 100644 --- a/src/perl/perl.c +++ b/src/perl/perl.c @@ -317,7 +317,7 @@ static int perl_source_event(PERL_SOURCE_REC *rec) XPUSHs(sv_2mortal(new_pv(rec->data))); PUTBACK; - retcount = perl_call_pv(rec->func, G_EVAL|G_SCALAR); + retcount = perl_call_pv(rec->func, G_EVAL|G_DISCARD); SPAGAIN; if (SvTRUE(ERRSV)) { |