Net::Telnet and Tk prevent Perl from returning system commands on Windows

[Alex Gorbachev]

This reduced version of my code fails in line 13 ( for (1..5) {system ("echo
syscall $_")}) -- Perl cannot close the system call. Running this with Perl
5.8.8 on Win XP and Win 2000 with same result.


use Tk;
use Net::Telnet;

$main = MainWindow->new;

$main->Button( -text => DO,-command => (sub{do_work()}))->pack(qw/-pady
15 -padx 20/);
MainLoop;

sub do_work {
my $t = new Net::Telnet (Port => 25);
$t->open("yahoo.com") or print "Cannot connect";
$t->close;
for (1..5) {system ("echo syscall $_")}
}

 

[Alex Gorbachev]

Unfortunately no improvement. It seems something in the code of Net::Telnet
is interfering with Perl core in combination with Tk, not the telnet process
itself. One thing to note that this problem (system call not ever returning
back to Perl) happens when the button is pressed (or via some other event in
Tk).

 

[Alex Gorbachev]

FYI, ActiveState logged a bug on this, the bug can be tracked at

http://bugs.activestate.com/show_bug.cgi?id=65304