Some versions of Linux don't seem to get along with non-blocking ReadKey. I received a test case about it in e-mail on 23 August:
#!/usr/bin/perl
use Term::ReadKey;
ReadMode 5; # Turn off controls keys
while (1) {
while (not defined ($key = ReadKey(-1))) {
print "Foo\n";
sleep (1);
}
print "Get key $key\n";
($key eq 'q') and last;
}
ReadMode 0; # Reset tty mode before exiting
If the test case fails for you, please e-mail a note to bug-POE@rt.cpan.org so (a) I'll see it, and (b) I won't forget it. :) Since it's a platform-dependent problem, it would help a lot if output from uname -a and perl -V were included. Thanks.
-- Rocco Caputo - rcaputo@pobox.com - poe.perl.org