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

[alexmv at bestpractical.com]

Author: alexmv
Date: Fri Mar  6 14:23:23 2009
New Revision: 18734

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

Log:
 r42983 at kohr-ah:  chmrr | 2009-03-06 14:20:00 -0500
  * Upper-case command name in "command not recognized" to not leak implementation as much


Modified: Net-IMAP-Server/lib/Net/IMAP/Server/Command.pm
==============================================================================
--- Net-IMAP-Server/lib/Net/IMAP/Server/Command.pm	(original)
+++ Net-IMAP-Server/lib/Net/IMAP/Server/Command.pm	Fri Mar  6 14:23:23 2009
@@ -76,7 +76,7 @@
 sub run {
     my $self = shift;
 
-    $self->bad_command( "command '" . $self->command . "' not recognized" );
+    $self->bad_command( "command '" . uc($self->command) . "' not recognized" );
 }
 
 =head2 has_literal