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

[alexmv at bestpractical.com]

Author: alexmv
Date: Tue Oct 16 13:36:08 2007
New Revision: 9326

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

Log:
 r23679 at zoq-fot-pik:  chmrr | 2007-10-16 13:35:59 -0400
  * Failed to split validate and run correctly before


Modified: Net-Server-IMAP/lib/Net/Server/IMAP/Command/Create.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/Server/IMAP/Command/Create.pm	(original)
+++ Net-Server-IMAP/lib/Net/Server/IMAP/Command/Create.pm	Tue Oct 16 13:36:08 2007
@@ -15,7 +15,7 @@
     return $self->bad_command("Not enough options") if @options < 1;
     return $self->bad_command("Too many options") if @options > 1;
 
-    my $name = shift @options;
+    my($name) = @options;
     my $mailbox = $self->connection->model->lookup($name);
     return $self->no_command("Mailbox already exists") if $mailbox;
 
@@ -25,6 +25,8 @@
 sub run {
     my $self = shift;
 
+    my($name) = @options;
+
     my $root = $self->connection->model->root;
     $self->connection->model->add_child( $root, name => $name );