Fix /script reset, which caused crashes (Bug 48)

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@3721 dbcabf3a-b0e7-0310-adc4-f8d773084564

src/perl/common/Irssi.xs

@@ -28,6 +28,7 @@ CODE:
 	if (!initialized) return;
 	perl_expando_deinit();
         perl_settings_deinit();
+	initialized = FALSE;
 
 BOOT:
         irssi_boot(Channel);

src/perl/irc/Irc.xs

@@ -1,5 +1,7 @@
 #include "module.h"
 
+static int initialized = FALSE;
+
 static void perl_irc_connect_fill_hash(HV *hv, IRC_SERVER_CONNECT_REC *conn)
 {
 	perl_connect_fill_hash(hv, (SERVER_CONNECT_REC *) conn);
@@ -161,7 +163,6 @@ PROTOTYPES: ENABLE
 void
 init()
 PREINIT:
-	static int initialized = FALSE;
 	int chat_type;
 CODE:
 	if (initialized) return;
@@ -198,6 +199,7 @@ CODE:
 void
 deinit()
 CODE:
+	initialized = FALSE;
 
 BOOT:
 	irssi_boot(Irc__Channel);

src/perl/textui/TextUI.xs

@@ -107,6 +107,7 @@ deinit()
 CODE:
 	if (!initialized) return;
         perl_statusbar_deinit();
+	initialized = FALSE;
 
 MODULE = Irssi::TextUI PACKAGE = Irssi
 

src/perl/ui/UI.xs

@@ -100,6 +100,7 @@ deinit()
 CODE:
 	if (!initialized) return;
         perl_themes_deinit();
+	initialized = FALSE;
 
 BOOT:
 	irssi_boot(UI__Formats);