merges from irssi.org cvs.

[silc.git] / apps / irssi / src / perl / perl-core.c

diff --git a/apps/irssi/src/perl/perl-core.c b/apps/irssi/src/perl/perl-core.c
index 1ed95c373fdfaf9492600686ce1005f4c5a05175..accd5ef478aa1957ab7f974614c2dc635b5b72a5 100644 (file)
--- a/apps/irssi/src/perl/perl-core.c
+++ b/apps/irssi/src/perl/perl-core.c
@@ -444,7 +444,7 @@ void perl_core_init(void)
         print_script_errors = 1;
        settings_add_str("perl", "perl_use_lib", PERL_USE_LIB);
 
-       PL_perl_destruct_level = 1;
+       /*PL_perl_destruct_level = 1; - this crashes with some people.. */
        perl_signals_init();
         signal_add_last("script error", (SIGNAL_FUNC) sig_script_error);