diff options
| author | Emanuele Giaquinta <exg@irssi.org> | 2007-05-03 08:42:33 +0000 |
|---|---|---|
| committer | exg <exg@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2007-05-03 08:42:33 +0000 |
| commit | b8380772e24bdb58a53bbd4c84356477347600d1 (patch) | |
| tree | 863cf657e4d5345c76a8d49ac4591d7a1d877533 | |
| parent | 47117f1f5f4bf0e3b898d2818ccaa20b85db80eb (diff) | |
| download | irssi-b8380772e24bdb58a53bbd4c84356477347600d1.zip | |
Remove broken code that prevents unloading of a script in some cases.
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@4473 dbcabf3a-b0e7-0310-adc4-f8d773084564
| -rw-r--r-- | src/perl/perl-core.c | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/src/perl/perl-core.c b/src/perl/perl-core.c index 2b660eef..091f2030 100644 --- a/src/perl/perl-core.c +++ b/src/perl/perl-core.c @@ -248,11 +248,7 @@ static int perl_script_eval(PERL_SCRIPT_REC *script) g_free(error); } } else if (retcount > 0) { - /* if script returns 0, it means the script wanted to die - immediately without any error message */ ret = POPs; - if (ret != &PL_sv_undef && SvIOK(ret) && SvIV(ret) == 0) - error = ""; } PUTBACK; |