diff options
-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) { |