about summary refs log tree commit
path: root/Net/SMTP.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Net/SMTP.pm')
-rw-r--r--Net/SMTP.pm6
1 files 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