Greetings Monks,

When using Term::Prompt on cygwin the say statement doesn't terminate with a crlf anymore:

Without Term::Prompt:

$ perl -e 'use Modern::Perl; say "the quick brown fox"; say "jumps ove
+r the lazy dog.";'
the quick brown fox
jumps over the lazy dog.
[download]

With Term::Prompt:

$ perl -e 'use Term::Prompt; use Modern::Perl; my $p = prompt( "y", "s
+tart?", "", ""); say "the quick brown fox"; say "jumps over the lazy 
+dog.";'
start? (y or n) [default n]
the quick brown foxjumps over the lazy dog.
[download]

Did I run into a bug or am I missing something important? I know cygwin does special things with crlf...

The say statement is a shortcut for { local $\="\n"; print "some string" } and this code block experiences the same behaviour:

$ perl -e 'use Term::Prompt; my $p = prompt( "y", "start?", "", ""); {
+ local $\="\n"; print "the quick brown fox"}; { local $\="\n"; print 
+"jumps over the lazy dog."}'
start? (y or n) [default n]
the quick brown foxjumps over the lazy dog.
[download]

Strange... Can anyone explain? This code below works correctly.

$ perl -e 'use Term::Prompt; my $p = prompt( "y", "start?", "", ""); p
+rint "the quick brown fox\n" ; print "jumps over the lazy dog."'
start? (y or n) [default n]
the quick brown fox
jumps over the lazy dog.
[download]