workaround upstream annoyance foerste-hhsp
authorMatthias Förste <foerste@schlittermann.de>
Tue, 14 Apr 2015 14:47:51 +0200
branchfoerste-hhsp
changeset 74 b82a656f784e
parent 71 2bb072311ed8
child 75 63b7c7fcd0cb
workaround upstream annoyance
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: {