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 (file)
--- 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>;
 }