| To: | bug-Mail-IMAPClient [...] rt.cpan.org |
| Subject: | IMAPClient hanging after 'Read: 1 NO no mechanism available' |
| From: | Andreas J Koenig <andk [...] cpan.org> |
| Date: | Tue, 14 Sep 2004 09:46:25 +0200 |
I'm using Mail::IMAPClient version 2.2.9 and perl version 5.8.4
(5.008004) and I try to connect to a Cyrus server with the following
simple program:
perl -e '
use Mail::Box::IMAP4;
my $f = Mail::Box::IMAP4->new(server_name => "xxxxx.xxx.xxxx.xx.xxx",
username => q{xxxxxx@xxxx.xxx},
password => "xxxxxx") or die;
print $f->listSubFolders, "\n";
'
This program hangs forever with high CPU usage.
I have stepped with the debugger to line 233 of IMAPClient.pm and
turned debugging on there. The following output appeared:
DB<9> n
Using Mail::IMAPClient version 2.2.9 and perl version 5.8.4 (5.008004)
Mail::IMAPClient::new(/usr/local/share/perl/5.8.4/Mail/IMAPClient.pm:233):
233: $self->LastError(0);
DB<9> n
Mail::IMAPClient::new(/usr/local/share/perl/5.8.4/Mail/IMAPClient.pm:234):
234: $self->Maxtemperrors or $self->Maxtemperrors("unlimited") ;
DB<9> c
Read: * OK xxxxx.xxx.xxxx.xx.xxx Cyrus IMAP4 Murder v2.1.16 server ready
Connect: Received this from readline: 0/OUTPUT/* OK xxxxx.xxx.xxxx.xx.xxx Cyrus IMAP4 Murder v2.1.16 server ready
Read: * OK xxxxx.xxx.xxxx.xx.xxx Cyrus IMAP4 Murder v2.1.16 server ready
Connect: Received this from readline: 1/OUTPUT/* OK xxxxx.xxx.xxxx.xx.xxx Cyrus IMAP4 Murder v2.1.16 server ready
Sending: 1 AUTHENTICATE CRAM-MD5
Sent 25 bytes
Read: 1 NO no mechanism available
Here it hangs with high CPU usage. After a ^C I get:
Sending: 2 LOGOUT
Sent 10 bytes
Read: * BYE LOGOUT received
2 OK Completed
Debugged program terminated. Use q to quit or R to restart,
use O inhibit_exit to avoid stopping after program termination,
h q, h R or h O to get additional info.
DB<9>
I have never used IMAPClient before, so I cannot say if this is a
regression.
BTW, if I add a 'use strict' at the top of IMAPClient.pm, I get a lot
of compilation errors.
--
andreas