Ok, I have tested it on 3 machines now:
- Linux Debian
- Perl v5.8.0
- Net::POP3 v2.24
- Linux Slackware
- Perl v5.6.0
- Net::POP3 v2.23
- FreeBSD
- Perl v5.8.0
- Net::POP3 v2.24
And got the following results:
| Machine |
Result |
| 1 |
Initially gave the same error message, but that got solved
after moving $pop->quit() outside the if-statement. |
| 2 |
Initially gave the same error message, but that got solved
after moving $pop->quit() outside the if-statement. |
| 3 |
Initially gave the same error message, but that got solved
after moving $pop->quit() outside the if-statement. |
I tested your posted code verbatim first, and with my slight alteration afterwards. I did not take out the "use diagnostics;". So I am now curious what Perl and Net:POP3 versions you use. Oh, maybe it has anything to do with it, but I tested the script on a qpopper POP3 daemon, first with one line in "./addresses" and later with multiple lines.
Update: now also tested with the "POP3 Server (Version 1.006d)" daemon, same result.
| [reply] |
My configuration:
Linux Debian
Perl v5.8.2
Net::POP3 v2.24
I still think that the problem is that the server disconnects after the failed login and I need a way to find out whether the connection is still alive before I quit.
| [reply] |