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

[alexmv at bestpractical.com]

Author: alexmv
Date: Mon Oct 22 16:08:19 2007
New Revision: 9399

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

Log:
 r23802 at zoq-fot-pik:  chmrr | 2007-10-22 16:05:10 -0400
  * Use ->data_out for better support for wierd names


Modified: Net-Server-IMAP/lib/Net/Server/IMAP/Command/Status.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/Server/IMAP/Command/Status.pm	(original)
+++ Net-Server-IMAP/lib/Net/Server/IMAP/Command/Status.pm	Mon Oct 22 16:08:19 2007
@@ -64,7 +64,8 @@
             delete $items{$i};
         }
     }
-    $self->untagged_response( "STATUS $name (" . join( ' ', %items ) . ")" );
+    $self->untagged_response( "STATUS ".$self->data_out({type=>"string", value => $name}) . " "
+                              . $self->data_out([map {(\$_, $items{$_})}keys %items]) );
     $self->ok_completed;
 }