poll(2) failure

gistfile1.txt

use NativeCall;
use NativeHelpers::CStruct;

class PollFD is repr('CStruct') {
	has int32 $.fd;
	has int16 $.events;
	has int16 $.revents;
}

sub poll(PollFD $fds, int64 $nfds, int32 $timeout) returns int32 is native { * }

say $*IN.native-descriptor;

my $fds = LinearArray[PollFD].new(1);

$fds[0] = PollFD.new(fd => $*IN.native-descriptor, events => 1, revents => 0);

say poll($fds.base, 1, -1);
say $fds[0];