From e01e09ac8c0f66d1a1b17d08bdde5e4465553518 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Wed, 4 Jul 2007 10:23:37 -0700
Subject: [PATCH] ignore warnings from Mail::Address->parse
---
Debbugs/Common.pm | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
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];
--
2.39.5