the win32 version of the module seems to not check for undefined values in the ReadKey sub. This should be around line 678 (line 476 of the on the fly created module).
So I suppose that the line:
if ($_[0] || $CurrentMode >= 3)
should be something like:
if ( defined $_[0] || $CurrentMode >= 3)
Hello and thanks for your work,
the win32 version of the module seems to not check for undefined values in the ReadKey sub. This should be around line 678 (line 476 of the on the fly created module).
So I suppose that the line:
if ($_[0] || $CurrentMode >= 3)should be something like:if ( defined $_[0] || $CurrentMode >= 3)See also this perlmonks thread
Thanks for reading
L*