Accept non-fully qualified commands.

diff --git a/Changelog b/Changelog
index 303e30907d0e8a8964ffda0d3867e30ab5c58ace..e4f1047ec3bf6a40c356c313050f0c9a8dee92dc 100644 (file)
--- a/Changelog
+++ b/Changelog
@@ -22,6 +22,7 @@ interimap (0.2) upstream;
   * Add an option 'SSL_CAfile' to specify a file containing trusted
     certificates to use during server certificate authentication.
   * Replace IO::Socket::SSL dependency by the lower level Net::SSLeay.
+  * Accept non-fully qualified commands.
 
  -- Guilhem Moulin <guilhem@guilhem.org>  Wed, 09 Sep 2015 00:44:35 +0200
 

diff --git a/lib/Net/IMAP/InterIMAP.pm b/lib/Net/IMAP/InterIMAP.pm
index 5cd00617ecc38f2df3b03b08e8f33b8c8a05c460..57f002e939ca6ef580b033b3975ac1bccbb67c8d 100644 (file)
--- a/lib/Net/IMAP/InterIMAP.pm
+++ b/lib/Net/IMAP/InterIMAP.pm
@@ -52,7 +52,7 @@ my %OPTIONS = (
     username => qr/\A([\x01-\x7F]+)\z/,
     password => qr/\A([\x01-\x7F]+)\z/,
     auth => qr/\A($RE_ATOM_CHAR+(?: $RE_ATOM_CHAR+)*)\z/,
-    command => qr/\A(\/\P{Control}+)\z/,
+    command => qr/\A(\P{Control}+)\z/,
     'null-stderr' => qr/\A(YES|NO)\z/i,
     compress => qr/\A($RE_ATOM_CHAR+(?: $RE_ATOM_CHAR+)*)\z/,
     SSL_fingerprint => qr/\A((?:[A-Za-z0-9]+\$)?\p{AHex}+)\z/,