getline() very very slow on localhost on 5.X

Hi all,

Can someone confirm that this is still a problem on 6.X ? Something
is really broken here ...

Martin

FreeBSD 5.x connecting to localhost

time perl5.6.1 -MIO::Socket -e '$s = new IO::Socket::INET("localhost:110");
$s->print("user USER\r\n");
$s->getline(); $s->print("pass PASS\r\n"); $s->getline(); $s->print("LIST\r\n");
for ($i = 1; $i
< 2000; ++$i) { $j=1 + $i%500;$s->print("top $j 0\r\n"); }
$s->print("quit\r\n"); while (defined($_
= $s->getline())) { print $_; }' > xxx

real    2m9.509s
user    0m0.559s
sys     0m0.184s

FreeBSD 5.x connecting to the external IP of the server

time perl -MIO::Socket -e '$s = new IO::Socket::INET("server:110");
$s->print("user USER\r\n");
> $s->getline(); $s->print("pass PASS\r\n"); $s->getline();
$s->print("LIST\r\n");
for ($i = 1; $i
> < 2000; ++$i) { $j=1 + $i%500;$s->print("top $j 0\r\n"); }
$s->print("quit\r\n"); while (defined($_
> = $s->getline())) { print $_; }' > xxx

real    0m6.932s
user    0m0.553s
sys     0m0.187s

Martin Blapp, <mb_at_imp.ch> <mbr_at_FreeBSD.org>
------------------------------------------------------------------
ImproWare AG, UNIXSP & ISP, Zurlindenstrasse 29, 4133 Pratteln, CH
Phone: +41 61 826 93 00 Fax: +41 61 826 93 01
PGP: <finger -l mbr_at_freebsd.org>
PGP Fingerprint: B434 53FC C87C FE7B 0A18 B84C 8686 EF22 D300 551E
------------------------------------------------------------------