diff options
author | Graham Barr <gbarr@pobox.com> | 2002-04-02 16:03:29 +0000 |
---|---|---|
committer | Graham Barr <gbarr@pobox.com> | 2002-04-02 16:03:29 +0000 |
commit | 4bc0338e683fd0e2910baaeee9010f63deb3e9ab (patch) | |
tree | bb152910dad4d017bad7dec212a20a40003bf5eb | |
parent | 60ab3e715862b370e155cc32033b7cfda2655005 (diff) | |
download | perl-libnet-4bc0338e683fd0e2910baaeee9010f63deb3e9ab.tar.gz |
Tweak parsing of hello 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 e76863d..5412c17 100644 --- a/Net/SMTP.pm +++ b/Net/SMTP.pm @@ -16,7 +16,7 @@ use IO::Socket; use Net::Cmd; use Net::Config; -$VERSION = "2.21"; # $Id: //depot/libnet/Net/SMTP.pm#22 $ +$VERSION = "2.22"; # $Id: //depot/libnet/Net/SMTP.pm#23 $ @ISA = qw(Net::Cmd IO::Socket::INET); @@ -132,7 +132,7 @@ sub hello my $ln; foreach $ln (@msg) { $h->{uc $1} = $2 - if $ln =~ /(\S+)\b[ \t]*([^\n]*)/; + if $ln =~ /(\w+)\b[= \t]*([^\n]*)/; } } elsif($me->status == CMD_ERROR) @@ -647,6 +647,6 @@ it under the same terms as Perl itself. =for html <hr> -I<$Id: //depot/libnet/Net/SMTP.pm#22 $> +I<$Id: //depot/libnet/Net/SMTP.pm#23 $> =cut |