Merges from Irssi CVS.

[runtime.git] / apps / irssi / src / perl / common / Irssi.pm

diff --git a/apps/irssi/src/perl/common/Irssi.pm b/apps/irssi/src/perl/common/Irssi.pm
index eb1d367b88a2451392d3a5965cd27f05c78b8537..a9f93bf0da84220fe0c45df4be2b88874a110d76 100644 (file)
--- a/apps/irssi/src/perl/common/Irssi.pm
+++ b/apps/irssi/src/perl/common/Irssi.pm
@@ -120,7 +120,9 @@ sub EXPORT_ALL () {
       push @EXPORT_OK, $_ if /[a-z]/ && defined *{$_}{CODE};
     }
   }
-  select CLIENTCRAP;
+
+  tie *DEFAULT, __PACKAGE__, MSGLEVEL_CLIENTCRAP();
+  select DEFAULT;
 }
 
 sub in_irssi {