Improve support for $ftp->supported(CMD)

Enterprise FTP server (version 6600) returns a message beginning with "The
following ftp server commands are recognized:" in response to a HELP
command, which caused $ftp->supported('ALLO') to return 1 when in fact it
should (surprisingly!) return 0.

1 files changed, 1 insertions, 1 deletions

diff --git a/lib/Net/FTP.pm b/lib/Net/FTP.pm
index 2ad11ed..eb8e7dc 100644
--- a/lib/Net/FTP.pm
+++ b/lib/Net/FTP.pm
@@ -956,7 +956,7 @@ sub supported {
     unless $ftp->_HELP($cmd);
 
   my $text = $ftp->message;
-  if ($text =~ /following\s+commands/i) {
+  if ($text =~ /following.+commands/i) {
     $text =~ s/^.*\n//;
     while ($text =~ /(\*?)(\w+)(\*?)/sg) {
       $hash->{"\U$2"} = !length("$1$3");