From: Kurt D. Starsinic <kstar@wolfetech.com>
Date: Mon, 13 Jul 1998 15:17:49 +0000 (-0400)
Subject: make Term::Readline::get_line() independent of caller's $/
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4e83e45193a4b31061c369233abb3560d500834e;p=p5sagit%2Fp5-mst-13.2.git

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

diff --git a/lib/Term/ReadLine.pm b/lib/Term/ReadLine.pm
index 83ba375..470226d 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>;
 }