diff options
Diffstat (limited to 'lib/Term/ReadLine.pm')
| -rw-r--r-- | lib/Term/ReadLine.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Term/ReadLine.pm b/lib/Term/ReadLine.pm index 83ba375742..470226da91 100644 --- a/lib/Term/ReadLine.pm +++ b/lib/Term/ReadLine.pm @@ -357,6 +357,7 @@ sub get_line { my $self = shift; $self->Tk_loop if $Term::ReadLine::toloop && defined &Tk::DoOneEvent; my $in = $self->IN; + local ($/) = "\n"; return scalar <$in>; } |