diff options
Diffstat (limited to 'src/perl')
| -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 { |