Re: Modern::Perl and cygwin

it's not just cygwin. On my debian stretch/sid at home I get the following:

gargle@msi:~$ perl -e 'use Term::Prompt qw/prompt/; use Modern::Perl; 
+{ my $p = (1==1) ? 0 : prompt( "y", "", "", "") } { local $\="\n"; pr
+int "the quick brown fox" } { local $\="\n"; print "jumps over the la
+zy dog." };'
the quick brown fox
jumps over the lazy dog.
[download]

gargle@msi:~$ perl -e 'use Term::Prompt qw/prompt/; use Modern::Perl; 
+{ my $p = (0==1) ? 0 : prompt( "y", "", "", "") } { local $\="\n"; pr
+int "the quick brown fox" } { local $\="\n"; print "jumps over the la
+zy dog." };'
 (y or n) [default n] 
the quick brown foxjumps over the lazy dog.gargle@msi:~$
[download]

Do other people see the same kind of behaviour?

Debian runs perl v5.24.1, Term::Prompt 1.04, Modern::Perl 1.20150127

--
if ( 1 ) { $postman->ring() for (1..2); }

Comment on Re: Modern::Perl and cygwin Select or Download Code

Replies are listed 'Best First'.
Re^2: Modern::Perl and cygwin by Anonymous Monk on Feb 08, 2017 at 19:46 UTC
I can confirm the save behavior on my Ubuntu server running the same versions of those CPAN modules.	[reply]
Re^3: Modern::Perl and cygwin by gargle (Chaplain) on Feb 08, 2017 at 20:18 UTC
Try downgrading your Term::Readkey to 2.33 or 2.30. `cpan JSTOWE/TermReadKey-2.33.tar.gz` [download] or `cpanm Term::Readkey@2.33` [download] should do the trick. -- if ( 1 ) { $postman->ring() for (1..2); }	[reply] [d/l] [select]