Another problem with testcase

Hello all,

Here is the testcase:
problem confirmed on two different irssi installations
with different perl&versions.



#Instruction for test case:
#1 Load irssi, load irssi-proxy
#2 connect to irssi-proxy
#have the connected client log raw traffic to a file or to a separate window
#so you can see what is going on
#3 load this script
#4 do /testsend in irssi
#5 look at the raw output in the client, it's supposed to go to 5000


#it stops roughly after 200-250 iterations here.
#If I decrease the fillertext size, it goes through, meaning
#it's a question of "rate" I guess.
#you might have to make the fillertext bigger to make the rate higher.
#and it might not work on "slower" computer where processing wouldnt
#be fast enough


sub stop_sig { Irssi::signal_stop(); }
sub testsend {
 my ($data, $server, $item) = @_;
 Irssi::signal_add_first('print text', 'stop_sig');
 my $fillertext = "abcdefghiklmnopqrstuvwxyz abcdefghiklmnopqrstuvwxyz 01234567890123456789 0123456789 aaaaaaaaaa0";
 for (my $k = 0; $k < 5000;$k+=1) { Irssi::signal_emit('server incoming', $server, ":backlog-!backlog\@back.log NOTICE #test :Playing " . $k . $fillertext . $filltertext); }
 Irssi::signal_remove('print text', 'stop_sig');
}
Irssi::command_bind('testsend','testsend');











Thanks for any help...


Paul-Kenji Cahier