Perl Term::ReadKey from empty scalar Segfaults under cygwin only (1.7.32 x86_64)

Perl Term::ReadKey from empty scalar Segfaults under cygwin only (1.7.32 x86_64)

[Luke Goodsell]

Hi,

Please can you help me to diagnose this issue?

Attempting Perl Term::ReadKey from an empty string under Cygwin causes perl to segmentation fault. The same command on Debian, or with a non-empty string, works fine.

Example command:

> 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";'

Response under cygwin:

> Segmentation fault (core dumped)

Response under Debian:

> Got ""

Changing $input to anything non-empty works properly.

Cygwin dll version: 1.7.32
Perl version: 5.14.4
Term::ReadKey version: 2.33

Kind regards,
Luke


--
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

Re: Perl Term::ReadKey from empty scalar Segfaults under cygwin only (1.7.32 x86_64)

[Marco Atzeri]

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

RE: Perl Term::ReadKey from empty scalar Segfaults under cygwin only (1.7.32 x86_64)

[Luke Goodsell]

Hi Marco,

>   $ 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 ""

I get:

> Got " "

... whereas I would expect an empty string.

Kind regards,
Luke

--
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

Re: Perl Term::ReadKey from empty scalar Segfaults under cygwin only (1.7.32 x86_64)

[Achim Gratz]

Luke Goodsell <Luke.Goodsell <at> ogt.com> writes:
> Please can you help me to diagnose this issue?

The stacktrace is useless, but if you run this under strace you'll also see
a message that doesn't make it to the output otherwise:

syntax error at -e line 1, near "= ;"
Unterminated <> operator at -e line 1.

The reason for the later segfault might already be here.

> Attempting Perl Term::ReadKey from an empty string under Cygwin causes
perl to segmentation fault. The
> same command on Debian, or with a non-empty string, works fine.

Please report this upstream.


Regards,
Achim.


--
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

RE: Perl Term::ReadKey from empty scalar Segfaults under cygwin only (1.7.32 x86_64)

[Luke Goodsell]

Hi Achim,

> The stacktrace is useless, but if you run this under strace you'll also see a message that doesn't make it to the output otherwise:

That arises from the subsequent print statement, which is never reached under cygwin.

Alternative command that eliminates that warning:

perl -MTerm::ReadKey -we 'my $input = ""; open(my $stdin, "<", \$input) or die "failed to open: $!"; local *STDIN = $stdin; ReadMode "raw"; my $response = ReadKey(1, \*STDIN); ReadMode "normal"; if(defined($response)) { print "Got \"$response\"\n"; } else { print "Got undef\n"; }'

> Please report this upstream.

To whom would that be? Perl devs?

Kind regards,
Luke

--
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

Re: Perl Term::ReadKey from empty scalar Segfaults under cygwin only (1.7.32 x86_64)

[Achim Gratz]

Luke Goodsell <Luke.Goodsell <at> ogt.com> writes:
> > Please report this upstream.
> 
> To whom would that be? Perl devs?

The module is on CPAN, with the following link to the bug tracker:
https://rt.cpan.org/Public/Dist/Display.html?Name=TermReadKey


Regards,
Achim


--
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