Re: Re: Re: An introduction to POE

[rcaputo]

in reply to Re: Re: An introduction to POE
in thread An introduction to POE

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 [e-mail] 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 - [e-mail] - poe.perl.org

[RMGir]

(Also emailed as requested)

It's not very happy on a redhat 9 box:

perl readkeyTest.pl
Foo
   Foo
      Foo
         Foo
            Foo
               Foo
                  Foo
                     Foo
                        Foo
                           Foo
Terminated
~/xml mike@tux6202
$ qqqqqqq
~/xml
$ perl -v

This is perl, v5.8.0 built for i386-linux-thread-multi
(with 1 registered patch, see perl -V for more detail)

Copyright 1987-2002, Larry Wall

...
~/xml
$ uname -a
Linux tuxXXXX 2.4.20-18.9smp #1 SMP Thu May 29 06:55:05 EDT 2003 i686 
+i686 i386 GNU/Linux

It DOES, however, work fine on a Redhat 7.x box with perl 5.6.1, with uname info:

 Linux tuxYYY 2.4.18-26.7.xsmp #1 SMP Mon Feb 24 09:37:16 EST 2003 i68
+6 unknown


--
Mike