From b8380772e24bdb58a53bbd4c84356477347600d1 Mon Sep 17 00:00:00 2001 From: Emanuele Giaquinta Date: Thu, 3 May 2007 08:42:33 +0000 Subject: [PATCH] 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 --- src/perl/perl-core.c | 4 ---- 1 file changed, 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;