From: Guilhem Moulin <guilhem@fripost.org>
Date: Mon, 14 Sep 2015 00:23:22 +0000 (+0200)
Subject: Accept non-fully qualified commands.
X-Git-Url: https://git.g-eek.se/?a=commitdiff_plain;h=c8fb54897f046a5a3fb4c1d45dc21fd8bcd882e3;p=interimap.git

Accept non-fully qualified commands.
---

diff --git a/Changelog b/Changelog
index 303e309..e4f1047 100644
--- 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 5cd0061..57f002e 100644
--- 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/,