ncurses: почему getch не ждет, пока я нажму клавишу?

Question

Со страницы руководства Linux по ncurses(3):

Опция nodelay заставляет getch быть неблокирующим вызовом. Если вход не готов, getch возвращает ERR. Если отключено (bf - FALSE), getch ждет, пока не будет нажата клавиша.

Почему в моем примере getch не ждет, пока я нажму клавишу?

---

#!/usr/bin/env perl6
use v6;
use NativeCall;

constant LIB = 'libncursesw.so.5';
constant ERR = -1;
class WINDOW is repr('CPointer') { }

sub initscr()                         returns WINDOW is native(LIB) {*};
sub cbreak()                          returns int32  is native(LIB) {*};
sub nodelay(WINDOW, bool)             returns int32  is native(LIB) {*};
sub getch()                           returns int32  is native(LIB) {*};
sub mvaddstr(int32,int32,str)         returns int32  is native(LIB) {*};
sub nc_refresh() is symbol('refresh') returns int32  is native(LIB) {*};
sub endwin()                          returns int32  is native(LIB) {*};

my $win = initscr();  # added "()"
cbreak();
nodelay( $win, False );

my $c = 0;
loop {
    my $key = getch(); # getch() doesn't wait
    $c++;
    mvaddstr( 2, 0, "$c" );
    nc_refresh();
    next if $key == ERR;
    last if $key.chr eq 'q';
}

endwin();

Answer 1

Эквивалент в C работает - что-то странное с вашей конфигурацией. У меня нет настройки perl6 для отладки, во всяком случае.

Единственная странная вещь, которую я вижу в программе, это то, что вы пропустили "()" после initscr, который я ожидаю увидеть для согласованности. В C, если вы это сделаете, последующие вызовы будут сбрасывать ядро ​​(так как &initscr является действительным указателем).