diff options
| author | Kurt D. Starsinic <kstar@wolfetech.com> | 1998-07-13 11:17:49 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-14 03:58:13 +0000 |
| commit | 4e83e45193a4b31061c369233abb3560d500834e (patch) | |
| tree | 6f5d3cb8945d22ca9687d297615a8593959c9ffb | |
| parent | c9795ab7664a64b17ddc414e80ebcfe53fb6bc2d (diff) | |
| download | perl-4e83e45193a4b31061c369233abb3560d500834e.tar.gz | |
make Term::Readline::get_line() independent of caller's $/
Message-ID: <19980713151749.G8596@O2.chapin.edu>
Subject: [PATCH] Was: CPAN.pm still fails
p4raw-id: //depot/perl@1474
| -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>; } |