From: Don Armstrong <don@donarmstrong.com>
Date: Wed, 4 Jul 2007 17:23:37 +0000 (-0700)
Subject: ignore warnings from Mail::Address->parse
X-Git-Tag: release/2.6.0~527^2~9
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e01e09ac8c0f66d1a1b17d08bdde5e4465553518;p=debbugs.git

ignore warnings from Mail::Address->parse
---

diff --git a/Debbugs/Common.pm b/Debbugs/Common.pm
index abe041d6..bb42bf8b 100644
--- 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];