diff options
author | Graham Barr <gbarr@pobox.com> | 2001-08-17 13:04:18 +0000 |
---|---|---|
committer | Graham Barr <gbarr@pobox.com> | 2001-08-17 13:04:18 +0000 |
commit | b359c02eebf2b0f68718a6c9fe149d589bdb66ac (patch) | |
tree | c0c8155172403d0d46b2e5d1e03e43b294955937 | |
parent | 252fd82ed58fbd974ab5cd0e9eb4585336753655 (diff) | |
download | perl-libnet-b359c02eebf2b0f68718a6c9fe149d589bdb66ac.tar.gz |
Support mixed case in the EHLO response
-rw-r--r-- | Net/SMTP.pm | 6 |
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 |