[Bps-public-commit] Net-IMAP-Server branch, master, updated. 1.33-3-ge3df0b1

[Alex Vandiver]

The branch, master has been updated
       via  e3df0b1296c437752f9f6c5369a86e27ec06c998 (commit)
       via  67b2e684be3666eead203c5fda492f5d8867ff36 (commit)
       via  67909ede74c52577ed8940e77ab6b380a11158e5 (commit)
      from  cc73819f39db29299610c508b0479d653899ed29 (commit)

Summary of changes:
 Changes                            | 4 ++++
 Makefile.PL                        | 1 +
 lib/Net/IMAP/Server.pm             | 3 ++-
 lib/Net/IMAP/Server/Command/Uid.pm | 2 +-
 4 files changed, 8 insertions(+), 2 deletions(-)

- Log -----------------------------------------------------------------
commit 67909ede74c52577ed8940e77ab6b380a11158e5
Author: Alex Vandiver <alexmv at bestpractical.com>
Date:   Sat Jul 28 15:41:29 2012 -0400

    Don't rely on $" being set to " " during untagged output in UID SEARCH
    
    Similar to 2fef66f, don't assume that $" is always set to " ", and
    instead explicitly join on the value that the RFC requires.  This saves
    users from themselves if they override $".

diff --git a/lib/Net/IMAP/Server/Command/Uid.pm b/lib/Net/IMAP/Server/Command/Uid.pm
index 81de432..dcfeee2 100644
--- a/lib/Net/IMAP/Server/Command/Uid.pm
+++ b/lib/Net/IMAP/Server/Command/Uid.pm
@@ -129,7 +129,7 @@ sub search {
     return unless $filter;
 
     my @results = map {$_->uid} grep {$filter->($_)} $self->connection->get_messages('1:*');
-    $self->untagged_response("SEARCH @results");
+    $self->untagged_response(join(" ", SEARCH => @results));
 
     $self->ok_completed;
 }

commit 67b2e684be3666eead203c5fda492f5d8867ff36
Author: Alex Vandiver <alexmv at bestpractical.com>
Date:   Sat Jul 28 15:46:24 2012 -0400

    Add a minimum perl version, based on needing proper unicode handling

diff --git a/Makefile.PL b/Makefile.PL
index 0bdb869..e285d3a 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -2,6 +2,7 @@ use inc::Module::Install;
 
 name('Net-IMAP-Server');
 author('Alex Vandiver <alexmv at bestpractical.com>');
+perl_version_from('lib/Net/IMAP/Server.pm');
 version_from('lib/Net/IMAP/Server.pm');
 abstract_from('lib/Net/IMAP/Server.pm');
 repository('http://github.com/bestpractical/net-imap-server/');
diff --git a/lib/Net/IMAP/Server.pm b/lib/Net/IMAP/Server.pm
index 682ab25..634e71d 100644
--- a/lib/Net/IMAP/Server.pm
+++ b/lib/Net/IMAP/Server.pm
@@ -7,6 +7,7 @@ use base qw/Net::Server::Coro Class::Accessor/;
 
 use UNIVERSAL::require;
 use Coro;
+use 5.008_008;
 
 our $VERSION = '1.33';
 

commit e3df0b1296c437752f9f6c5369a86e27ec06c998
Author: Alex Vandiver <alexmv at bestpractical.com>
Date:   Sat Jul 28 15:50:44 2012 -0400

    Version 1.34 releng

diff --git a/Changes b/Changes
index bf878c5..f87e7cb 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,9 @@
 Revision history for Net-IMAP-Server
 
+1.34   Sat Jul 28 15:49:17 2012
+        * Don't rely on $" being set to the default " " during UID
+          SEARCH
+
 1.33   Sat Apr 07 19:37:17 2012
         * Test fixes; use recv() with MSG_PEEK | MSG_DONTWAIT to
           determine if a TCP connection is in state CLOSE_WAIT
diff --git a/lib/Net/IMAP/Server.pm b/lib/Net/IMAP/Server.pm
index 634e71d..e3c2e04 100644
--- a/lib/Net/IMAP/Server.pm
+++ b/lib/Net/IMAP/Server.pm
@@ -9,7 +9,7 @@ use UNIVERSAL::require;
 use Coro;
 use 5.008_008;
 
-our $VERSION = '1.33';
+our $VERSION = '1.34';
 
 =head1 NAME
 

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