diff options
author | Graham Barr <gbarr@pobox.com> | 2002-09-23 14:02:44 +0000 |
---|---|---|
committer | Graham Barr <gbarr@pobox.com> | 2002-09-23 14:02:44 +0000 |
commit | b5ac432cc03ea58509aefd7c27f85f6aeb58ebaa (patch) | |
tree | f4cbf7b00ceb9ab018fb08e7b09dbf605036bdd1 | |
parent | cba2da4a6694454d8e01d4108645f3129d93db0a (diff) | |
download | perl-libnet-b5ac432cc03ea58509aefd7c27f85f6aeb58ebaa.tar.gz |
Net::POP3
- Make more compilant. +OK and -ERR responses do not have to be followed by a space.
-rw-r--r-- | Net/POP3.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Net/POP3.pm b/Net/POP3.pm index 1460416..3263f47 100644 --- a/Net/POP3.pm +++ b/Net/POP3.pm @@ -13,7 +13,7 @@ use Net::Cmd; use Carp; use Net::Config; -$VERSION = "2.23"; # $Id: //depot/libnet/Net/POP3.pm#22 $ +$VERSION = "2.24"; # $Id: //depot/libnet/Net/POP3.pm#23 $ @ISA = qw(Net::Cmd IO::Socket::INET); @@ -342,13 +342,13 @@ sub response $cmd->debug_print(0,$str) if ($cmd->debug); - if($str =~ s/^\+OK\s+//io) + if($str =~ s/^\+OK\s*//io) { $code = "200" } else { - $str =~ s/^-ERR\s+//io; + $str =~ s/^-ERR\s*//io; } ${*$cmd}{'net_cmd_resp'} = [ $str ]; @@ -540,6 +540,6 @@ it under the same terms as Perl itself. =for html <hr> -I<$Id: //depot/libnet/Net/POP3.pm#22 $> +I<$Id: //depot/libnet/Net/POP3.pm#23 $> =cut |