...meanwhile, here's a workaround - put this into your script
BEGIN {
package Win32::SerialPort;
sub FILENO {
return fileno(CF) || -1;
}
}
Thank you, but this code does'nt work.
See the manual page perltie. Win32::SerialPort uses tied filehandles,
and the method FILENO is missing.
Contact the author...
I saw what in Win32::SerialPort missing FILENO.
And then POE try use
vec($loop_vectors[$mode], $fileno, 1) = 1;
$loop_filenos{$fileno} |= (1<<$mode);
}
with your FILENO
code does'nt return.
I think here need use emulation around IO::Handle but, i don't how. :)
Maybe sombody know?
Maybe use Wheel::Run?
But i can't see how.