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

[alexmv at bestpractical.com]

Author: alexmv
Date: Tue Nov  6 21:38:53 2007
New Revision: 9612

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

Log:
 r24524 at zoq-fot-pik:  chmrr | 2007-11-06 21:38:20 -0500
  * Don't poll after SELECT (which just did so) or LOGOUT (where it's pointless)


Modified: Net-Server-IMAP/lib/Net/Server/IMAP/Command.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/Server/IMAP/Command.pm	(original)
+++ Net-Server-IMAP/lib/Net/Server/IMAP/Command.pm	Tue Nov  6 21:38:53 2007
@@ -134,7 +134,7 @@
 sub send_untagged {
     my $self = shift;
 
-    $self->connection->send_untagged( @_ );
+    $self->connection->send_untagged( @_ ) if $self->poll_after;
 }
 
 sub ok_command {
@@ -198,4 +198,6 @@
     $self->connection->out(@_);
 }
 
+sub poll_after { 1 }
+
 1;

Modified: Net-Server-IMAP/lib/Net/Server/IMAP/Command/Logout.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/Server/IMAP/Command/Logout.pm	(original)
+++ Net-Server-IMAP/lib/Net/Server/IMAP/Command/Logout.pm	Tue Nov  6 21:38:53 2007
@@ -22,4 +22,6 @@
     $self->connection->close();
 }
 
+sub poll_after { 0 }
+
 1;

Modified: Net-Server-IMAP/lib/Net/Server/IMAP/Command/Select.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/Server/IMAP/Command/Select.pm	(original)
+++ Net-Server-IMAP/lib/Net/Server/IMAP/Command/Select.pm	Tue Nov  6 21:38:53 2007
@@ -56,4 +56,6 @@
     }
 }
 
+sub poll_after { 0 }
+
 1;