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

[alexmv at bestpractical.com]

Author: alexmv
Date: Fri Mar 20 14:14:17 2009
New Revision: 18889

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

Log:
 r43093 at kohr-ah:  chmrr | 2009-03-10 13:41:57 -0400
 Match query in LIST and LSUB against encoded path, not raw utf8 path


Modified: Net-IMAP-Server/lib/Net/IMAP/Server/Command/List.pm
==============================================================================
--- Net-IMAP-Server/lib/Net/IMAP/Server/Command/List.pm	(original)
+++ Net-IMAP-Server/lib/Net/IMAP/Server/Command/List.pm	Fri Mar 20 14:14:17 2009
@@ -63,7 +63,8 @@
     push @props, @{$node->children} ? '\HasChildren' : '\HasNoChildren';
     push @props, '\Noselect' unless $node->is_selectable;
 
-    $self->list_out($node, @props) if $node->parent and $node->full_path =~ $regex;
+    $self->list_out($node, @props) if $node->parent and 
+        Encode::encode('IMAP-UTF-7',$node->full_path) =~ $regex;
     $self->traverse( $_, $regex ) for @{ $node->children };
 }