diff options
| author | Graham Barr <gbarr@pobox.com> | 2008-02-09 14:30:55 +0000 |
|---|---|---|
| committer | Graham Barr <gbarr@pobox.com> | 2009-02-24 10:40:48 -0600 |
| commit | d7a601cb99aa91da6fe994b19525f8439f1aec0f (patch) | |
| tree | b2a542b7077de38dc6e881689bcc48d73521f61a | |
| parent | 02bef53e74ef3e7f7f8257f32ffa1a507845bbf2 (diff) | |
| download | perl-libnet-d7a601cb99aa91da6fe994b19525f8439f1aec0f.tar.gz | |
Exchange defines private commands prefixed with X-, so we need
to allow commands parsed from the helo response to contain -'s even though that is not standard
| -rw-r--r-- | Net/SMTP.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Net/SMTP.pm b/Net/SMTP.pm index a28496d..45a228a 100644 --- a/Net/SMTP.pm +++ b/Net/SMTP.pm @@ -16,7 +16,7 @@ use IO::Socket; use Net::Cmd; use Net::Config; -$VERSION = "2.31"; +$VERSION = "2.31_1"; @ISA = qw(Net::Cmd IO::Socket::INET); @@ -176,7 +176,7 @@ sub hello { my $ln; foreach $ln (@msg) { $h->{uc $1} = $2 - if $ln =~ /(\w+)\b[= \t]*([^\n]*)/; + if $ln =~ /([-\w]+)\b[= \t]*([^\n]*)/; } } elsif ($me->status == CMD_ERROR) { |