From: Don Armstrong <don@donarmstrong.com>
Date: Wed, 17 Aug 2016 02:11:51 +0000 (-0700)
Subject: lowercase email address
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=6bce097edc14fff58d2c79718b2e1bcbc9dd3a15;p=debbugs.git

lowercase email address
---

diff --git a/Debbugs/DB/Load.pm b/Debbugs/DB/Load.pm
index d2774ab..bb93533 100644
--- a/Debbugs/DB/Load.pm
+++ b/Debbugs/DB/Load.pm
@@ -155,7 +155,7 @@ sub load_bug {
     for my $addr_type (keys %addr_map) {
         my @addrs = getparsedaddrs($data->{$addr_map{$addr_type}} // '');
         next unless @addrs;
-        $bug->{$addr_type} = $s->resultset('Correspondent')->find_or_create({addr => $addrs[0]->address()});
+        $bug->{$addr_type} = $s->resultset('Correspondent')->find_or_create({addr => lc($addrs[0]->address())});
         # insert the full name as well
         my $full_name = $addrs[0]->phrase();
         $full_name =~ s/^\"|\"$//g;