[Bps-public-commit] r16402 - in Net-IMAP-Server: lib/Net/IMAP/Server lib/Net/IMAP/Server/Command
alexmv at bestpractical.com
alexmv at bestpractical.com
Mon Oct 20 16:30:30 EDT 2008
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.""};
}
More information about the Bps-public-commit
mailing list