equal
deleted
inserted
replaced
79 sub help(); |
79 sub help(); |
80 |
80 |
81 my $Module = shift if @ARGV && $ARGV[0] !~ /^-/; |
81 my $Module = shift if @ARGV && $ARGV[0] !~ /^-/; |
82 $Module ||= "UNKNOWN"; |
82 $Module ||= "UNKNOWN"; |
83 |
83 |
|
84 # see http://article.gmane.org/gmane.mail.imap.cyrus/36348 or |
|
85 # https://lists.andrew.cmu.edu/pipermail/info-cyrus/2012-February/035910.html |
|
86 $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 )} }; |
84 $SIG{__DIE__} = sub { die "\n" . ME . ": ", @_ }; |
87 $SIG{__DIE__} = sub { die "\n" . ME . ": ", @_ }; |
85 |
88 |
86 MAIN: { |
89 MAIN: { |
87 |
90 |
88 $Cf = new AppConfig Common::CONFIG or die; |
91 $Cf = new AppConfig Common::CONFIG or die; |