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

[alexmv at bestpractical.com]

Author: alexmv
Date: Mon Oct 20 16:30:29 2008
New Revision: 16402

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

Log:
 r38397 at kohr-ah:  chmrr | 2008-10-20 16:30:19 -0400
  * Fix consistent mis-spelling of "separator"


Modified: Net-IMAP-Server/lib/Net/IMAP/Server/Command/Create.pm
==============================================================================
--- Net-IMAP-Server/lib/Net/IMAP/Server/Command/Create.pm	(original)
+++ Net-IMAP-Server/lib/Net/IMAP/Server/Command/Create.pm	Mon Oct 20 16:30:29 2008
@@ -28,7 +28,7 @@
 
     my $base = $self->connection->model->root;
     for my $n (0.. $#parts) {
-        my $path = join($self->connection->model->root->seperator, @parts[0 .. $n]);
+        my $path = join($self->connection->model->root->separator, @parts[0 .. $n]);
         my $part = $self->connection->model->lookup($path);
         unless ($part) {
             unless ($part = $base->create( name => $parts[$n] )) {

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	Mon Oct 20 16:30:29 2008
@@ -25,10 +25,10 @@
     # In the special case of a query for the delimiter, give them our delimiter
     if ( $search eq "" ) {
         $self->tagged_response( q{(\Noselect) "}
-                . $self->connection->model->root->seperator
+                . $self->connection->model->root->separator
                 . q{" ""} );
     } else {
-        my $sep = $self->connection->model->root->seperator;
+        my $sep = $self->connection->model->root->separator;
         $search = quotemeta($search);
         $search =~ s/\\\*/.*/g;
         $search =~ s/\\%/[^$sep]+/g;
@@ -46,7 +46,7 @@
     my @props = @_;
 
     my $str = $self->data_out([map {\$_} @props]);
-    $str .= q{ "} . $self->connection->model->root->seperator . q{" };
+    $str .= q{ "} . $self->connection->model->root->separator . q{" };
     $str .= q{"} . $node->full_path . q{"};
     $self->tagged_response($str);
 }

Modified: Net-IMAP-Server/lib/Net/IMAP/Server/Command/Rename.pm
==============================================================================
--- Net-IMAP-Server/lib/Net/IMAP/Server/Command/Rename.pm	(original)
+++ Net-IMAP-Server/lib/Net/IMAP/Server/Command/Rename.pm	Mon Oct 20 16:30:29 2008
@@ -34,7 +34,7 @@
 
     my $base = $self->connection->model->root;
     for my $n (0.. $#parts) {
-        my $path = join($self->connection->model->root->seperator, @parts[0 .. $n]);
+        my $path = join($self->connection->model->root->separator, @parts[0 .. $n]);
         my $part = $self->connection->model->lookup($path);
         unless ($part) {
             unless ($part = $base->create( name => $parts[$n] )) {

Modified: Net-IMAP-Server/lib/Net/IMAP/Server/DefaultModel.pm
==============================================================================
--- Net-IMAP-Server/lib/Net/IMAP/Server/DefaultModel.pm	(original)
+++ Net-IMAP-Server/lib/Net/IMAP/Server/DefaultModel.pm	Mon Oct 20 16:30:29 2008
@@ -91,14 +91,14 @@
 =head2 split PATH
 
 Utility method which splits a given C<PATH> according to the mailbox
-seperator, as determinded by the
-L<Net::IMAP::Server::Mailbox/seperator> of the L</root>.
+separator, as determinded by the
+L<Net::IMAP::Server::Mailbox/separator> of the L</root>.
 
 =cut
 
 sub split {
     my $self = shift;
-    return grep {length} split quotemeta $self->root->seperator, shift;
+    return grep {length} split quotemeta $self->root->separator, shift;
 }
 
 =head2 lookup PATH

Modified: Net-IMAP-Server/lib/Net/IMAP/Server/Mailbox.pm
==============================================================================
--- Net-IMAP-Server/lib/Net/IMAP/Server/Mailbox.pm	(original)
+++ Net-IMAP-Server/lib/Net/IMAP/Server/Mailbox.pm	Mon Oct 20 16:30:29 2008
@@ -372,14 +372,14 @@
 
 =head2 Inspection
 
-=head3 seperator
+=head3 separator
 
-Returns the path seperator.  Note that only the path seperator of the
+Returns the path separator.  Note that only the path separator of the
 root mailbox matters.  Defaults to a forward slash.
 
 =cut
 
-sub seperator {
+sub separator {
     return "/";
 }
 
@@ -400,7 +400,7 @@
     $cache->{$self.""} =
           !$self->parent         ? ""
         : !$self->parent->parent ? $self->name
-        : $self->parent->full_path . $self->seperator . $self->name;
+        : $self->parent->full_path . $self->separator . $self->name;
     return $cache->{$self.""};
 }