Skip to content
Browse files

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
  • Loading branch information...
1 parent 02bef53 commit d7a601cb99aa91da6fe994b19525f8439f1aec0f @gbarr committed Feb 9, 2008
Showing with 2 additions and 2 deletions.
  1. +2 −2 Net/SMTP.pm
View
4 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) {

0 comments on commit d7a601c

Please sign in to comment.
Something went wrong with that request. Please try again.