diff options
author | Timo Sirainen <cras@irssi.org> | 2002-04-01 18:57:40 +0000 |
---|---|---|
committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2002-04-01 18:57:40 +0000 |
commit | 980f3b01c59c523bfae2b7cb632053ffee8a938e (patch) | |
tree | 0fedef9dc898bdbec12a7b35fb86c6db6568b685 /src/perl/common | |
parent | 0b232291ef71df2ac7a5b318f714e95cc3c6502d (diff) | |
download | irssi-980f3b01c59c523bfae2b7cb632053ffee8a938e.zip |
print() fix
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2651 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/common')
-rw-r--r-- | src/perl/common/Irssi.pm | 4 |
1 files changed, 3 insertions, 1 deletions
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 { |