From b359c02eebf2b0f68718a6c9fe149d589bdb66ac Mon Sep 17 00:00:00 2001
From: Graham Barr <gbarr@pobox.com>
Date: Fri, 17 Aug 2001 13:04:18 +0000
Subject: Support mixed case in the EHLO response

---
 Net/SMTP.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Net/SMTP.pm b/Net/SMTP.pm
index 17cdbe9..9037c26 100644
--- a/Net/SMTP.pm
+++ b/Net/SMTP.pm
@@ -16,7 +16,7 @@ use IO::Socket;
 use Net::Cmd;
 use Net::Config;
 
-$VERSION = "2.15"; # $Id: //depot/libnet/Net/SMTP.pm#13 $
+$VERSION = "2.15"; # $Id: //depot/libnet/Net/SMTP.pm#14 $
 
 @ISA = qw(Net::Cmd IO::Socket::INET);
 
@@ -109,7 +109,7 @@ sub hello
    my $h = ${*$me}{'net_smtp_esmtp'} = {};
    my $ln;
    foreach $ln (@msg) {
-     $h->{$1} = $2
+     $h->{uc $1} = $2
 	if $ln =~ /(\S+)\b[ \t]*([^\n]*)/;
     }
   }
@@ -597,6 +597,6 @@ it under the same terms as Perl itself.
 
 =for html <hr>
 
-I<$Id: //depot/libnet/Net/SMTP.pm#13 $>
+I<$Id: //depot/libnet/Net/SMTP.pm#14 $>
 
 =cut
-- 
cgit v1.2.3-24-ge0c7