[Bps-public-commit] Net-IMAP-Server branch, master, updated. 1.38-2-ge150394

[Alex Vandiver]

The branch, master has been updated
       via  e1503942e5ace0218a459ec3d94116429fae99f6 (commit)
       via  fed2bb79c022988cd7b63da0230a6c3591212657 (commit)
      from  e94bf809b6f828ed39ffac7496d0c48268a039f0 (commit)

Summary of changes:
 lib/Net/IMAP/Server/Mailbox.pm | 3 ++-
 t/lib/Net/IMAP/Server/Test.pm  | 6 +++---
 2 files changed, 5 insertions(+), 4 deletions(-)

- Log -----------------------------------------------------------------
commit fed2bb79c022988cd7b63da0230a6c3591212657
Author: Alex Vandiver <alexmv at bestpractical.com>
Date:   Mon Feb 16 21:13:44 2015 -0500

    Use 127.0.0.1 instead of localhost, for IPv6 hosts

diff --git a/t/lib/Net/IMAP/Server/Test.pm b/t/lib/Net/IMAP/Server/Test.pm
index 96b3374..9ae4ec1 100644
--- a/t/lib/Net/IMAP/Server/Test.pm
+++ b/t/lib/Net/IMAP/Server/Test.pm
@@ -28,8 +28,8 @@ sub start_server {
         require Net::IMAP::Server::Test::Server;
         Net::IMAP::Server::Test::Server->new(
             auth_class => "Net::IMAP::Server::Test::Auth",
-            port       => "localhost:".PORT,
-            ssl_port   => "localhost:".SSL_PORT,
+            port       => "127.0.0.1:".PORT,
+            ssl_port   => "127.0.0.1:".SSL_PORT,
             group      => $(,
             user       => $<,
             @_
@@ -63,7 +63,7 @@ sub socket_key { "SOCKET" };
 sub connect {
     my $class = shift;
     my %args = (
-        PeerAddr        => 'localhost',
+        PeerAddr        => '127.0.0.1',
         PeerPort        => SSL_PORT,
         Class           => "IO::Socket::SSL",
         SSL_ca_file     => "certs/server-cert.pem",

commit e1503942e5ace0218a459ec3d94116429fae99f6
Author: Alex Vandiver <alexmv at bestpractical.com>
Date:   Mon Feb 16 21:16:20 2015 -0500

    Fix precedence error with "and"/"return"

diff --git a/lib/Net/IMAP/Server/Mailbox.pm b/lib/Net/IMAP/Server/Mailbox.pm
index 8c78eda..27fc663 100644
--- a/lib/Net/IMAP/Server/Mailbox.pm
+++ b/lib/Net/IMAP/Server/Mailbox.pm
@@ -570,9 +570,10 @@ L<Net::IMAP::Server::Connection>.
 
 sub selected {
     my $self = shift;
-    return Net::IMAP::Server->connection
+    return 1 if Net::IMAP::Server->connection
       and Net::IMAP::Server->connection->selected
         and Net::IMAP::Server->connection->selected eq $self;
+    return;
 }
 
 =for private

-----------------------------------------------------------------------