ignore warnings from Mail::Address->parse

[debbugs.git] / Debbugs / Common.pm

diff --git a/Debbugs/Common.pm b/Debbugs/Common.pm
index abe041d672874e595882e0a378013f4de4e3da99..bb42bf8b207c171f240c48779a3c18b680124ddc 100644 (file)
--- a/Debbugs/Common.pm
+++ b/Debbugs/Common.pm
@@ -207,7 +207,8 @@ sub getparsedaddrs {
     return wantarray?@{$_parsedaddrs{$addr}}:$_parsedaddrs{$addr}[0]
         if exists $_parsedaddrs{$addr};
     {
-        no warnings;
+        # don't display the warnings from Mail::Address->parse
+        local $SIG{__WARN__} = sub { };
         @{$_parsedaddrs{$addr}} = Mail::Address->parse($addr);
     }
     return wantarray?@{$_parsedaddrs{$addr}}:$_parsedaddrs{$addr}[0];