From 980f3b01c59c523bfae2b7cb632053ffee8a938e Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Mon, 1 Apr 2002 18:57:40 +0000
Subject: print() fix

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2651 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 src/perl/common/Irssi.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/perl')

diff --git a/src/perl/common/Irssi.pm b/src/perl/common/Irssi.pm
index eb1d367b..a9f93bf0 100644
--- a/src/perl/common/Irssi.pm
+++ b/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 {
-- 
cgit debian/1.2.3+git2.25.1-1-2-gaceb0