Updated perl API version. Fixed irssi to behave better if the API doesn't

match (doesn't crash).


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

src/perl/common/Irssi.xs

@@ -1,5 +1,7 @@
 #include "module.h"
 
+static int initialized = FALSE;
+
 MODULE = Irssi  PACKAGE = Irssi
 
 PROTOTYPES: ENABLE
@@ -7,12 +9,16 @@ PROTOTYPES: ENABLE
 void
 init()
 CODE:
+	if (initialized) return;
 	perl_api_version_check("Irssi");
+	initialized = TRUE;
+
         perl_settings_init();
 
 void
 deinit()
 CODE:
+	if (!initialized) return;
         perl_settings_deinit();
 
 BOOT: