27.2.07

Bugfix for Mail::POP3Client 2.17

Bitcard totaly sucks. I've managed to crash it several times, but still can't authenticate on CPAN to fill a bug report. I quit.

For those who might care:


--- /root/.cpan/build/Mail-POP3Client-2.17/POP3Client.pm 2005-08-18 16:28:12.000000000 +0100
+++ /usr/local/share/perl/5.8.8/Mail/POP3Client.pm 2007-02-27 17:36:43.000000000 +0000
@@ -412,7 +412,10 @@
$me->Message($msg);

$me->State('AUTHORIZATION');
- defined($me->User()) and defined($me->Pass()) and $me->Login();
+ if (defined($me->User()) and defined($me->Pass()) and $me->Login()) {
+ return 1;
+ }
+ return 0;

} # end Connect



This is on Connect(), a method that is documented as allways returning 0 or 1, which isn't happening.