[Bps-public-commit] r18709 - in Net-IMAP-Server: lib/Net/IMAP/Server/Command

[alexmv at bestpractical.com]

Author: alexmv
Date: Thu Mar  5 14:34:35 2009
New Revision: 18709

Modified:
   Net-IMAP-Server/   (props changed)
   Net-IMAP-Server/lib/Net/IMAP/Server/Command/Namespace.pm
   Net-IMAP-Server/lib/Net/IMAP/Server/Command/Search.pm

Log:
 r42871 at kohr-ah:  chmrr | 2009-03-05 14:15:07 -0500
  * Fixes for people who have set $" to something odd


Modified: Net-IMAP-Server/lib/Net/IMAP/Server/Command/Namespace.pm
==============================================================================
--- Net-IMAP-Server/lib/Net/IMAP/Server/Command/Namespace.pm	(original)
+++ Net-IMAP-Server/lib/Net/IMAP/Server/Command/Namespace.pm	Thu Mar  5 14:34:35 2009
@@ -25,7 +25,7 @@
             ? "(" . join( "", map { $self->data_out($_) } @{$_} ) . ")"
             : $self->data_out($_)
     } @namespaces;
-    $self->untagged_response("NAMESPACE @namespaces");
+    $self->untagged_response(join(" ", NAMESPACE => @namespaces));
 
     $self->ok_completed();
 }

Modified: Net-IMAP-Server/lib/Net/IMAP/Server/Command/Search.pm
==============================================================================
--- Net-IMAP-Server/lib/Net/IMAP/Server/Command/Search.pm	(original)
+++ Net-IMAP-Server/lib/Net/IMAP/Server/Command/Search.pm	Thu Mar  5 14:34:35 2009
@@ -23,7 +23,7 @@
     return unless $filter;
 
     my @results = map {$self->connection->sequence($_)} grep {$filter->($_)} $self->connection->get_messages('1:*');
-    $self->untagged_response("SEARCH @results");
+    $self->untagged_response(join(" ", SEARCH => @results));
     $self->ok_completed;
 }
 
@@ -31,6 +31,7 @@
     my $self = shift;
     my @tokens = [@_]; # This ref is intentional!  It gets us the top-level AND
     my $filters = []; my @stack;
+    # TODO: CHARSET support
     while (@tokens) {
         my $token = shift @tokens;
         $token = uc $token unless ref $token;