# HG changeset patch # User Matthias Förste # Date 1429015671 -7200 # Node ID b82a656f784e05a11712853ca9a12c7b38cf0c8e # Parent 2bb072311ed860ac183d1a7cf2a6f7546147398c workaround upstream annoyance diff -r 2bb072311ed8 -r b82a656f784e ma --- a/ma Thu Dec 15 16:08:16 2011 +0100 +++ b/ma Tue Apr 14 14:47:51 2015 +0200 @@ -81,6 +81,9 @@ my $Module = shift if @ARGV && $ARGV[0] !~ /^-/; $Module ||= "UNKNOWN"; +# see http://article.gmane.org/gmane.mail.imap.cyrus/36348 or +# https://lists.andrew.cmu.edu/pipermail/info-cyrus/2012-February/035910.html +$SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ m{^(Please report to rjlov at /usr/share/perl5/Mail/IMAPTalk\.pm line|Warning only: IMAPTalk not using unicode_folders at /usr/share/perl5/Mail/IMAPTalk\.pm line )} }; $SIG{__DIE__} = sub { die "\n" . ME . ": ", @_ }; MAIN: {