diff options
| author | Graham Barr <gbarr@pobox.com> | 2001-10-22 12:50:10 +0000 |
|---|---|---|
| committer | Graham Barr <gbarr@pobox.com> | 2001-10-22 12:50:10 +0000 |
| commit | 4745c4c5239dcfe38dae8e775b225db31da88846 (patch) | |
| tree | a7dc502ccb4988764f8d51f530eb49b41ebeeb4c | |
| parent | 97b2ad77515fc6854b8b1bf93ae0609a6397b620 (diff) | |
| download | perl-libnet-4745c4c5239dcfe38dae8e775b225db31da88846.tar.gz | |
Net::SMTP
- Don't be sensetive to extra spaces on reply to HELO
| -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 a2f2d2e..f2647b7 100644 --- a/Net/SMTP.pm +++ b/Net/SMTP.pm @@ -16,7 +16,7 @@ use IO::Socket; use Net::Cmd; use Net::Config; -$VERSION = "2.16"; # $Id: //depot/libnet/Net/SMTP.pm#16 $ +$VERSION = "2.17"; # $Id: //depot/libnet/Net/SMTP.pm#17 $ @ISA = qw(Net::Cmd IO::Socket::INET); @@ -119,7 +119,7 @@ sub hello if $ok = $me->_HELO($domain); } - $ok && $msg[0] =~ /\A(\S+)/ + $ok && $msg[0] =~ /\A\s*(\S+)/ ? $1 : undef; } @@ -609,6 +609,6 @@ it under the same terms as Perl itself. =for html <hr> -I<$Id: //depot/libnet/Net/SMTP.pm#16 $> +I<$Id: //depot/libnet/Net/SMTP.pm#17 $> =cut |