[Bps-public-commit] r9388 - Net-Server-IMAP/lib/Net/Server/IMAP

[jesse at bestpractical.com]

Author: jesse
Date: Sun Oct 21 14:36:30 2007
New Revision: 9388

Modified:
   Net-Server-IMAP/lib/Net/Server/IMAP/Connection.pm

Log:
* $@ is somewhat unsafe if you make other calls in between set and get

Modified: Net-Server-IMAP/lib/Net/Server/IMAP/Connection.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/Server/IMAP/Connection.pm	(original)
+++ Net-Server-IMAP/lib/Net/Server/IMAP/Connection.pm	Sun Oct 21 14:36:30 2007
@@ -59,9 +59,9 @@
     eval {
         $handler->run() if $handler->validate;
     };
-    if ($@) {
+    if (my $error = $@) {
         $handler->no_command("Server error");
-        $self->log($@);
+        $self->log($error);
     }
 }