Upgrade to Test::Simple 0.64_03

[p5sagit/p5-mst-13.2.git] / lib / Net / POP3.pm

diff --git a/lib/Net/POP3.pm b/lib/Net/POP3.pm
index 3a5aec0..510d186 100644 (file)
--- a/lib/Net/POP3.pm
+++ b/lib/Net/POP3.pm
@@ -13,7 +13,7 @@ use Net::Cmd;
 use Carp;
 use Net::Config;
 
-$VERSION = "2.27";
+$VERSION = "2.28";
 
 @ISA = qw(Net::Cmd IO::Socket::INET);
 
@@ -401,7 +401,7 @@ sub auth {
     eval {
        require MIME::Base64;
        require Authen::SASL;
-    } or return $self->set_error(500,["Need MIME::Base64 and Authen::SASL todo auth"]);
+    } or $self->set_status(500,["Need MIME::Base64 and Authen::SASL todo auth"]), return 0;
 
     my $capa = $self->capa;
     my $mechanisms = $capa->{SASL} || 'CRAM-MD5';
@@ -572,7 +572,7 @@ Return the sever's connection banner
 
 =item capa ()
 
-Return a reference to a hash of the capabilties of the server.  APOP
+Return a reference to a hash of the capabilities of the server.  APOP
 is added as a pseudo capability.  Note that I've been unable to
 find a list of the standard capability values, and some appear to
 be multi-word and some are not.  We make an attempt at intelligently
@@ -639,7 +639,7 @@ when the server connection closed.
 
 =item reset ()
 
-Reset the status of the remote POP3 server. This includes reseting the
+Reset the status of the remote POP3 server. This includes resetting the
 status of all messages to not be deleted.
 
 =item quit ()