On 25/08/2015 10:48, Luke Goodsell wrote:
perl -MTerm::ReadKey -e 'my $input = ""; open(my $stdin, "<", \$input) or die "failed to open: $!"; local *STDIN =
$stdin; ReadMode "raw"; my $response = ReadKey(1, \*STDIN); ReadMode "normal"; print "Got \"$response\"\n";
I will bet in a lack of string end somewhere.
$ perl -MTerm::ReadKey -E 'my $input = "\0" ; open(my $stdin, "<",
\$input) or die "failed to open: $!"; local *STDIN = $stdin; ReadMode
"raw"; my $response = ReadKey(1, \*STDIN); ReadMode "normal"; print "Got
\"$response\"\n";'
Got ""
--
Problem reports: http://cygwin.com/problems.html
FAQ: http://cygwin.com/faq/
Documentation: http://cygwin.com/docs.html
Unsubscribe info: http://cygwin.com/ml/#unsubscribe-simple
